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