38 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! C1123 -- Expressions in DO CONCURRENT header cannot reference variables3! declared in the same header4PROGRAM dosemantics045 IMPLICIT NONE6 INTEGER :: a, i, j, k, n7 8 !ERROR: DO CONCURRENT mask expression references variable 'n' in LOCAL locality-spec9 DO CONCURRENT (INTEGER *2 :: i = 1:10, i < j + n) LOCAL(n)10 PRINT *, "hello"11 END DO12 13 !ERROR: DO CONCURRENT mask expression references variable 'a' in LOCAL locality-spec14 DO 30 CONCURRENT (i = 1:n:1, j=1:n:2, k=1:n:3, a<3) LOCAL (a)15 PRINT *, "hello"1630 END DO17 18! Initial expression19 !ERROR: DO CONCURRENT limit expression may not reference index variable 'j'20 DO CONCURRENT (i = j:3, j=1:3)21 END DO22 23! Final expression24 !ERROR: DO CONCURRENT limit expression may not reference index variable 'j'25 DO CONCURRENT (i = 1:j, j=1:3)26 END DO27 28! Step expression29 !ERROR: DO CONCURRENT step expression may not reference index variable 'j'30 DO CONCURRENT (i = 1:3:j, j=1:3)31 END DO32 33 !ERROR: DO CONCURRENT limit expression may not reference index variable 'i'34 DO CONCURRENT (INTEGER*2 :: i = 1:3, j=i:3)35 END DO36 37END PROGRAM dosemantics0438