| ! 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 |