flang/test/Semantics/OpenMP/do19.f90

   1 ! RUN: %flang_fc1 -fopenmp -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s
   2 ! CHECK-NOT: do *[1-9]
   3 ! CHECK: omp simd
   4
   5 program P
   6 implicit none
   7 integer N, I
   8 parameter (N=100)
   9 real A(N), B(N), C(N)
  10
  11 !$OMP SIMD
  12 do 10 I = 1, N
  13    A(I) = I * 1.0
  14 10 continue
  15
  16 B = A
  17
  18 !$OMP SIMD
  19 do 20 I = 1, N
  20    C(I) = A(I) + B(I)
  21    write (*,100) I, C(I)
  22 20 continue
  23
  24 100 format(" C(", I3, ")=", F8.2)
  25 end program P