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