You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
24 lines
495 B
24 lines
495 B
4 months ago
|
! 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
|