2019-08-01 01:31:19 +08:00
|
|
|
! C1122 The index-name shall be a named scalar variable of type integer.
|
2020-06-06 02:09:12 +08:00
|
|
|
! RUN: not %f18 -funparse-with-symbols %s 2>&1 | FileCheck %s
|
|
|
|
! CHECK: Must have INTEGER type, but is REAL(4)
|
2018-10-11 07:52:06 +08:00
|
|
|
|
2019-04-13 01:20:42 +08:00
|
|
|
subroutine do_concurrent_test1(n)
|
2018-10-11 07:52:06 +08:00
|
|
|
implicit none
|
2019-04-13 01:20:42 +08:00
|
|
|
integer :: n
|
2018-10-11 07:52:06 +08:00
|
|
|
real :: j
|
2019-04-12 08:22:16 +08:00
|
|
|
do 20 concurrent (j = 1:n)
|
2018-10-11 07:52:06 +08:00
|
|
|
20 enddo
|
|
|
|
end subroutine do_concurrent_test1
|