26 lines · plain
1! RUN: %flang_fc1 -fopenmp -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s2! CHECK-NOT: do *[1-9]3! CHECK: omp simd4 5program P6implicit none7integer N, I8parameter (N=100)9real A(N), B(N), C(N)10 11!$OMP SIMD12do 10 I = 1, N13 A(I) = I * 1.01410 continue15 16B = A17 18!$OMP SIMD19do 20 I = 1, N20 C(I) = A(I) + B(I)21 write (*,100) I, C(I)2220 continue23 24100 format(" C(", I3, ")=", F8.2)25end program P26