xref: /llvm-project/flang/test/Semantics/doconcurrent04.f90 (revision 96d229c9abdfb2836e18a554bfb63b5d52aeebfa)
164ab3302SCarolineConcatto! C1122 The index-name shall be a named scalar variable of type integer.
2*96d229c9SAndrzej Warzynski! RUN: not %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s
39c98ed9cSRichard Barton! CHECK: Must have INTEGER type, but is REAL(4)
464ab3302SCarolineConcatto
564ab3302SCarolineConcattosubroutine do_concurrent_test1(n)
664ab3302SCarolineConcatto  implicit none
764ab3302SCarolineConcatto  integer :: n
864ab3302SCarolineConcatto  real :: j
964ab3302SCarolineConcatto  do 20 concurrent (j = 1:n)
1064ab3302SCarolineConcatto20 enddo
1164ab3302SCarolineConcattoend subroutine do_concurrent_test1
12