flang/test/Semantics/dosemantics01.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 ! C1131 -- check valid and invalid DO loop naming
   3
   4 PROGRAM 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
  23 END PROGRAM C1131