1! RUN: %S/test_errors.sh %s %t %f18 2! C1131 -- check valid and invalid DO loop naming 3 4PROGRAM C1131 5 IMPLICIT NONE 6 ! Valid construct 7 validDo: DO WHILE (.true.) 8 PRINT *, "Hello" 9 END DO ValidDo 10 11 ! Missing name on END DO 12 missingEndDo: DO WHILE (.true.) 13 PRINT *, "Hello" 14!ERROR: DO construct name required but missing 15 END DO 16 17 ! Missing name on DO 18 DO WHILE (.true.) 19 PRINT *, "Hello" 20!ERROR: DO construct name unexpected 21 END DO missingDO 22 23END PROGRAM C1131 24