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