1! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic -Werror 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