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