| ! RUN: %S/test_errors.sh %s %t %f18 | |
| ! C1131 -- check valid and invalid DO loop naming | |
| PROGRAM C1131 | |
| IMPLICIT NONE | |
| ! Valid construct | |
| validDo: DO WHILE (.true.) | |
| PRINT *, "Hello" | |
| END DO ValidDo | |
| ! Missing name on END DO | |
| missingEndDo: DO WHILE (.true.) | |
| PRINT *, "Hello" | |
| !ERROR: DO construct name required but missing | |
| END DO | |
| ! Missing name on DO | |
| DO WHILE (.true.) | |
| PRINT *, "Hello" | |
| !ERROR: DO construct name unexpected | |
| END DO missingDO | |
| END PROGRAM C1131 |