forked from OSchip/llvm-project
310 lines
8.1 KiB
Fortran
310 lines
8.1 KiB
Fortran
! RUN: %B/test/Semantics/test_errors.sh %s %flang %t
|
|
write(*,*)
|
|
write(*,'()')
|
|
write(*,'(A)')
|
|
write(*,'(2X:2X)')
|
|
write(*,'(2X/2X)')
|
|
write(*,'(3/2X)')
|
|
write(*,'(3PF5.2)')
|
|
write(*,'(+3PF5.2)')
|
|
write(*,'(-3PF5.2)')
|
|
write(*,'(000p,10p,0p)')
|
|
write(*,'(3P7D5.2)')
|
|
write(*,'(3P,7F5.2)')
|
|
write(*,'(2X,(i3))')
|
|
write(*,'(5X,*(2X,I2))')
|
|
write(*,'(5X,*(2X,DT))')
|
|
write(*,'(*(DT))')
|
|
write(*,'(*(DT"value"))')
|
|
write(*,'(*(DT(+1,0,-1)))')
|
|
write(*,'(*(DT"value"(+1,000,-1)))')
|
|
write(*,'(*(DT(0)))')
|
|
write(*,'(S,(RZ),2E10.3)')
|
|
write(*,'(7I2)')
|
|
write(*,'(07I02)')
|
|
write(*,'(07I02.01)')
|
|
write(*,'(07I02.02)')
|
|
write(*,'(I0)')
|
|
write(*,'(G4.2)')
|
|
write(*,'(G0.8)')
|
|
write(*,'(T3)')
|
|
write(*,'("abc")')
|
|
write(*,'("""abc""")')
|
|
write(*,'("a""""bc", 2x)')
|
|
write(*,'(3Habc)')
|
|
write(*,'(3Habc, 2X, 3X)')
|
|
write(*,'(987654321098765432X)')
|
|
write(*,'($)')
|
|
write(*,'(\)')
|
|
write(*,'(RZ,RU,RP,RN,RD,RC,SS,SP,S,3G15.3e2)')
|
|
|
|
! C1302 warnings; no errors
|
|
write(*,'(3P7I2)')
|
|
write(*,'(5X i3)')
|
|
write(*,'(XEN)')
|
|
|
|
!ERROR: Empty format expression
|
|
write(*,"")
|
|
|
|
!ERROR: Empty format expression
|
|
write(*,"" // '' // "")
|
|
|
|
!ERROR: Format expression must have an initial '('
|
|
write(*,'I3')
|
|
|
|
!ERROR: Unexpected '+' in format expression
|
|
write(*,'(+7I2)')
|
|
|
|
!ERROR: Unexpected '-' in format expression
|
|
write(*,'(-7I2)')
|
|
|
|
!ERROR: 'P' edit descriptor must have a scale factor
|
|
write(*,'(P7F5.2)')
|
|
|
|
!ERROR: 'P' edit descriptor must have a scale factor
|
|
write(*,'(P7F' // '5.2)')
|
|
|
|
!ERROR: Unexpected integer constant
|
|
write(*,'(X,3,3L4)')
|
|
|
|
!ERROR: Unexpected ',' before ')' in format expression
|
|
write(*,'(X,i3,)')
|
|
|
|
!ERROR: Unexpected ',' in format expression
|
|
write(*,'(X,i3,,)')
|
|
|
|
!ERROR: Unexpected ',' in format expression
|
|
!ERROR: Unexpected ',' before ')' in format expression
|
|
write(*,'(X,i3,,,)')
|
|
|
|
!ERROR: Unexpected ',' before ')' in format expression
|
|
write(*,'(X,(i3,))')
|
|
|
|
!ERROR: Unexpected '*' in format expression
|
|
write(*,'(*)')
|
|
|
|
!ERROR: Expected integer constant in 'DT' edit descriptor v-list
|
|
write(*,'(*(DT(+1,0,=1)))')
|
|
|
|
!ERROR: Expected integer constant in 'DT' edit descriptor v-list
|
|
write(*,'(DT(1,0,+))')
|
|
|
|
!ERROR: Expected integer constant in 'DT' edit descriptor v-list
|
|
write(*,'(DT(1,0,*))')
|
|
|
|
!ERROR: Expected ',' or ')' in 'DT' edit descriptor v-list
|
|
write(*,'(DT(1,0,2*))')
|
|
|
|
!ERROR: Expected ',' or ')' in 'DT' edit descriptor v-list
|
|
write(*,'(DT(1,0,2*,+,?))')
|
|
|
|
!ERROR: Expected integer constant in 'DT' edit descriptor v-list
|
|
!ERROR: Unterminated format expression
|
|
write(*,'(DT(1,0,*)')
|
|
|
|
!ERROR: Expected ',' or ')' in 'DT' edit descriptor v-list
|
|
!ERROR: Unterminated format expression
|
|
write(*,'(DT(1,0,2*,+,?)')
|
|
|
|
!ERROR: Unexpected '?' in format expression
|
|
!ERROR: Unexpected ',' in format expression
|
|
write(*,'(?,*(DT(+1,,1)))')
|
|
|
|
!ERROR: Repeat specifier before unlimited format item list
|
|
!ERROR: Unlimited format item list must contain a data edit descriptor
|
|
write(*,'(5X,3*(2(X)))')
|
|
|
|
!ERROR: Nested unlimited format item list
|
|
write(*,'(D12.2,(*(F10.2)))')
|
|
|
|
!ERROR: Unlimited format item list must contain a data edit descriptor
|
|
write(*,'(5X,*(2(X)))')
|
|
|
|
!ERROR: Character in format after unlimited format item list
|
|
write(*,'(*(Z5),*(2F20.3))')
|
|
|
|
!ERROR: Character in format after unlimited format item list
|
|
write(*,'(*(B5),*(2(I5)))')
|
|
|
|
!ERROR: Character in format after unlimited format item list
|
|
write(*,'(*(I5), D12.7)')
|
|
|
|
!ERROR: 'I' edit descriptor 'm' value is greater than 'w' value
|
|
write(*,'(07I02.0 3)')
|
|
|
|
!ERROR: 'Z' edit descriptor 'm' value is greater than 'w' value
|
|
write(*,'(07Z02.4)')
|
|
|
|
!ERROR: 'I' edit descriptor repeat specifier must be positive
|
|
write(*,'(0I2)')
|
|
|
|
!ERROR: List repeat specifier must be positive
|
|
write(*,'(0(I2))')
|
|
|
|
!ERROR: List repeat specifier must be positive
|
|
write(*,'(000(I2))')
|
|
|
|
!ERROR: List repeat specifier must be positive
|
|
!ERROR: 'I' edit descriptor repeat specifier must be positive
|
|
write(*,'(0(0I2))')
|
|
|
|
!ERROR: Kind parameter '_' character in format expression
|
|
write(*,'(5_4X)')
|
|
|
|
!ERROR: Unexpected '+' in format expression
|
|
write(*,'(I+3)')
|
|
|
|
!ERROR: Unexpected '-' in format expression
|
|
write(*,'(I-3)')
|
|
|
|
!ERROR: Unexpected '-' in format expression
|
|
write(*,'(I-3, X)')
|
|
|
|
!ERROR: 'X' edit descriptor must have a positive position value
|
|
write(*,'(0X)')
|
|
|
|
!ERROR: Unexpected 'Y' in format expression
|
|
write(*,'(XY)')
|
|
|
|
!ERROR: Unexpected 'Y' in format expression
|
|
write(*,'(XYM)')
|
|
|
|
!ERROR: Unexpected 'M' in format expression
|
|
write(*,'(MXY)')
|
|
|
|
!ERROR: Unexpected 'R' in format expression
|
|
!ERROR: Unexpected 'R' in format expression
|
|
write(*,"(RR, RV)")
|
|
|
|
!ERROR: Unexpected '-' in format expression
|
|
!ERROR: Unexpected 'Y' in format expression
|
|
write(*,'(I-3, XY)')
|
|
|
|
!ERROR: 'A' edit descriptor 'w' value must be positive
|
|
write(*,'(A0)')
|
|
|
|
!ERROR: 'L' edit descriptor 'w' value must be positive
|
|
write(*,'(L0)')
|
|
|
|
!ERROR: Expected 'G' edit descriptor '.d' value
|
|
write(*,'(G4)')
|
|
|
|
!ERROR: Unexpected 'e' in 'G0' edit descriptor
|
|
write(*,'(G0.8e)')
|
|
|
|
!ERROR: Unexpected 'e' in 'G0' edit descriptor
|
|
write(*,'(G0.8e2)')
|
|
|
|
!ERROR: Kind parameter '_' character in format expression
|
|
write(*,'(I5_4)')
|
|
|
|
!ERROR: Kind parameter '_' character in format expression
|
|
write(*,'(5_4P)')
|
|
|
|
!ERROR: 'T' edit descriptor must have a positive position value
|
|
write(*,'(T0)')
|
|
|
|
!ERROR: 'T' edit descriptor must have a positive position value
|
|
!ERROR: Unterminated format expression
|
|
write(*,'(T0')
|
|
|
|
!ERROR: 'TL' edit descriptor must have a positive position value
|
|
!ERROR: 'T' edit descriptor must have a positive position value
|
|
!ERROR: Expected 'EN' edit descriptor 'd' value after '.'
|
|
write(*,'(TL0,T0,EN12.)')
|
|
|
|
!ERROR: Expected 'EX' edit descriptor 'e' value after 'E'
|
|
write(*,'(EX12.3e2, EX12.3e)')
|
|
|
|
!ERROR: 'TL' edit descriptor must have a positive position value
|
|
!ERROR: 'T' edit descriptor must have a positive position value
|
|
!ERROR: Unterminated format expression
|
|
write(*,'(TL00,T000')
|
|
|
|
!ERROR: Unterminated format expression
|
|
write(*,'(')
|
|
|
|
!ERROR: Unterminated format expression
|
|
write(*,'(-')
|
|
|
|
!ERROR: Unterminated format expression
|
|
write(*,'(I3+')
|
|
|
|
!ERROR: Unterminated format expression
|
|
write(*,'(I3,-')
|
|
|
|
!ERROR: Unexpected integer constant
|
|
write(*,'(3)')
|
|
|
|
!ERROR: Unexpected ',' before ')' in format expression
|
|
write(*,'(3,)')
|
|
|
|
!ERROR: Unexpected ',' in format expression
|
|
write(*,'(,3)')
|
|
|
|
!ERROR: Unexpected ',' before ')' in format expression
|
|
write(*,'(,)')
|
|
|
|
!ERROR: Unterminated format expression
|
|
write(*,'(X')
|
|
|
|
!ERROR: Unterminated format expression
|
|
write(*,'(XX') ! C1302 warning is not an error
|
|
|
|
!ERROR: Unexpected '@' in format expression
|
|
!ERROR: Unexpected '#' in format expression
|
|
!ERROR: Unexpected '&' in format expression
|
|
write(*,'(@@, # ,&&& &&, ignore error 4)')
|
|
|
|
!ERROR: Repeat specifier before 'TR' edit descriptor
|
|
write(*,'(3TR0)')
|
|
|
|
!ERROR: 'TR' edit descriptor must have a positive position value
|
|
write(*,'(TR0)')
|
|
|
|
!ERROR: Kind parameter '_' character in format expression
|
|
write(*,'(3_4X)')
|
|
|
|
!ERROR: Kind parameter '_' character in format expression
|
|
write(*,'(1_"abc")')
|
|
|
|
!ERROR: Unterminated string
|
|
!ERROR: Unterminated format expression
|
|
write(*,'("abc)')
|
|
|
|
!ERROR: Unexpected '_' in format expression
|
|
write(*,'("abc"_1)')
|
|
|
|
!ERROR: Unexpected '@' in format expression
|
|
write(*,'(3Habc, 3@, X)')
|
|
|
|
!ERROR: Unterminated format expression
|
|
write(*,'(4Habc)')
|
|
|
|
!ERROR: Unterminated 'H' edit descriptor
|
|
!ERROR: Unterminated format expression
|
|
write(*,'(5Habc)')
|
|
|
|
!ERROR: Unterminated 'H' edit descriptor
|
|
!ERROR: Unterminated format expression
|
|
write(*,'(50Habc)')
|
|
|
|
!ERROR: Integer overflow in format expression
|
|
write(*,'(9876543210987654321X)')
|
|
|
|
!ERROR: Integer overflow in format expression
|
|
write(*,'(98765432109876543210X)')
|
|
|
|
!ERROR: Integer overflow in format expression
|
|
write(*,'(I98765432109876543210)')
|
|
|
|
!ERROR: Integer overflow in format expression
|
|
write(*,'(45I20.98765432109876543210, 45I20)')
|
|
|
|
!ERROR: Integer overflow in format expression
|
|
write(*,'(45' // ' I20.9876543' // '2109876543210, 45I20)')
|
|
|
|
!ERROR: Repeat specifier before '$' edit descriptor
|
|
write(*,'(7$)')
|
|
end
|