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
5subroutine do_concurrent_test1(n)
6  implicit none
7  integer :: n
8  real :: j
9  do 20 concurrent (j = 1:n)
1020 enddo
11end subroutine do_concurrent_test1
12