Mercurial > hg > CbC > CbC_llvm

view flang/test/Semantics/doconcurrent04.f90 @ 181:df311c476dd5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
CreateIdentifierInfo in ParseCbC (not yet worked)
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sun, 31 May 2020 12:30:11 +0900
parents 0572611fdcc8
children 2e18cbf3894f
line wrap: on
line source

! RUN: %S/test_any.sh %s %t %f18
! C1122 The index-name shall be a named scalar variable of type integer.
! EXEC: ${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