1*6c1ac141SIvan Zhechev! RUN: %python %S/test_errors.py %s %flang_fc1 264ab3302SCarolineConcatto! C1131 -- check valid and invalid DO loop naming 364ab3302SCarolineConcatto 464ab3302SCarolineConcattoPROGRAM C1131 564ab3302SCarolineConcatto IMPLICIT NONE 664ab3302SCarolineConcatto ! Valid construct 764ab3302SCarolineConcatto validDo: DO WHILE (.true.) 864ab3302SCarolineConcatto PRINT *, "Hello" 964ab3302SCarolineConcatto END DO ValidDo 1064ab3302SCarolineConcatto 1164ab3302SCarolineConcatto ! Missing name on END DO 1264ab3302SCarolineConcatto missingEndDo: DO WHILE (.true.) 1364ab3302SCarolineConcatto PRINT *, "Hello" 1464ab3302SCarolineConcatto!ERROR: DO construct name required but missing 1564ab3302SCarolineConcatto END DO 1664ab3302SCarolineConcatto 1764ab3302SCarolineConcatto ! Missing name on DO 1864ab3302SCarolineConcatto DO WHILE (.true.) 1964ab3302SCarolineConcatto PRINT *, "Hello" 2064ab3302SCarolineConcatto!ERROR: DO construct name unexpected 2164ab3302SCarolineConcatto END DO missingDO 2264ab3302SCarolineConcatto 2364ab3302SCarolineConcattoEND PROGRAM C1131 24