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