1! RUN: %S/test_errors.sh %s %t %flang_fc1 -pedantic
2! REQUIRES: shell
3
4  write(*, '(B0)')
5  write(*, '(B3)')
6
7  !WARNING: Expected 'B' edit descriptor 'w' value
8  write(*, '(B)')
9
10  !WARNING: Expected 'EN' edit descriptor 'w' value
11  !WARNING: Non-standard '$' edit descriptor
12  write(*, '(EN,$)')
13
14  !WARNING: Expected 'G' edit descriptor 'w' value
15  write(*, '(3G)')
16
17  !WARNING: Non-standard '\' edit descriptor
18  write(*,'(A, \)') 'Hello'
19
20  !WARNING: 'X' edit descriptor must have a positive position value
21  write(*, '(X)')
22
23  !WARNING: Legacy 'H' edit descriptor
24  write(*, '(3Habc)')
25
26  !WARNING: 'X' edit descriptor must have a positive position value
27  !WARNING: Expected ',' or ')' in format expression
28  !WARNING: 'X' edit descriptor must have a positive position value
29  write(*,'(XX)')
30
31  !WARNING: Expected ',' or ')' in format expression
32  write(*,'(RZEN8.2)')
33
34  !WARNING: Expected ',' or ')' in format expression
35  write(*,'(3P7I2)')
36
37  !WARNING: Expected ',' or ')' in format expression
38  write(*,'(5X i3)')
39end
40