12 lines · plain
1! C1122 The index-name shall be a named scalar variable of type integer.2! RUN: not %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s3! CHECK: Must have INTEGER type, but is REAL(4)4 5subroutine do_concurrent_test1(n)6 implicit none7 integer :: n8 real :: j9 do 20 concurrent (j = 1:n)1020 enddo11end subroutine do_concurrent_test112