24 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! C1131 -- check valid and invalid DO loop naming3 4PROGRAM C11315 IMPLICIT NONE6 ! Valid construct7 validDo: DO WHILE (.true.)8 PRINT *, "Hello"9 END DO ValidDo10 11 ! Missing name on END DO12 missingEndDo: DO WHILE (.true.)13 PRINT *, "Hello"14!ERROR: DO construct name required but missing15 END DO16 17 ! Missing name on DO18 DO WHILE (.true.)19 PRINT *, "Hello"20!ERROR: DO construct name unexpected21 END DO missingDO22 23END PROGRAM C113124