forked from OSchip/llvm-project
12 lines
339 B
Fortran
12 lines
339 B
Fortran
![]() |
! C1122 The index-name shall be a named scalar variable of type integer.
|
||
![]() |
! RUN: ${F18} -funparse-with-symbols %s 2>&1 | ${FileCheck} %s
|
||
![]() |
! CHECK: Must have INTEGER type, but is REAL\\(4\\)
|
||
![]() |
|
||
![]() |
subroutine do_concurrent_test1(n)
|
||
![]() |
implicit none
|
||
![]() |
integer :: n
|
||
![]() |
real :: j
|
||
![]() |
do 20 concurrent (j = 1:n)
|
||
![]() |
20 enddo
|
||
|
end subroutine do_concurrent_test1
|