39 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic -Werror2 3 write(*, '(B0)')4 write(*, '(B3)')5 6 !WARNING: Expected 'B' edit descriptor 'w' value7 write(*, '(B)')8 9 !WARNING: Expected 'EN' edit descriptor 'w' value10 !WARNING: Non-standard '$' edit descriptor11 write(*, '(EN,$)')12 13 !WARNING: Expected 'G' edit descriptor 'w' value14 write(*, '(3G)')15 16 !WARNING: Non-standard '\' edit descriptor17 write(*,'(A, \)') 'Hello'18 19 !WARNING: 'X' edit descriptor must have a positive position value20 write(*, '(X)')21 22 !WARNING: Legacy 'H' edit descriptor23 write(*, '(3Habc)')24 25 !WARNING: 'X' edit descriptor must have a positive position value26 !WARNING: Expected ',' or ')' in format expression27 !WARNING: 'X' edit descriptor must have a positive position value28 write(*,'(XX)')29 30 !WARNING: Expected ',' or ')' in format expression31 write(*,'(RZEN8.2)')32 33 !WARNING: Expected ',' or ')' in format expression34 write(*,'(3P7I2)')35 36 !WARNING: Expected ',' or ')' in format expression37 write(*,'(5X i3)')38end39