flang/test/Semantics/doconcurrent04.f90

   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 %s
   3 ! CHECK: Must have INTEGER type, but is REAL(4)
   4
   5 subroutine do_concurrent_test1(n)
   6   implicit none
   7   integer :: n
   8   real :: j
   9   do 20 concurrent (j = 1:n)
  10 20 enddo
  11 end subroutine do_concurrent_test1