llvm-project/flang/test/Semantics/doconcurrent04.f90

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

12 lines
334 B
Fortran
Raw Normal View History

! C1122 The index-name shall be a named scalar variable of type integer.
! RUN: not %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