llvm-project/flang/test/Semantics/canondo06.f90

! RUN: %f18 -fopenmp -funparse-with-symbols %s 2>&1 | FileCheck %s
! CHECK-NOT: do *[1-9]
! CHECK: omp simd

program P
implicit none
integer N, I
parameter (N=100)
real A(N), B(N), C(N)

!$OMP SIMD
do 10 I = 1, N
   A(I) = I * 1.0
10 continue

B = A

!$OMP SIMD
do 20 I = 1, N
   C(I) = A(I) + B(I)
   write (*,100) I, C(I)
20 continue

100 format(" C(", I3, ")=", F8.2)
end program P
[flang] Port remaining test_any.sh tests to FileCheck Port the remaining tests which only require mechanical changes and delete test_any.sh. * Delete old RUN lines * Replace: EXEC: ${F18} ... \| ${FileCheck} ... with RUN: %f18 .. \| FileCheck ... * Prepend RUN line with not when it is expected to fail Also reinstate a de-activated EXEC line and port it in the same way. Differential Revision: https://reviews.llvm.org/D82168 2020-06-27 02:28:43 +08:00			`! RUN: %f18 -fopenmp -funparse-with-symbols %s 2>&1 \| FileCheck %s`
[flang] add openmp simd test Original-commit: flang-compiler/f18@c31bb0d1440198491c80b29b4ba3645ef9c2425e Reviewed-on: https://github.com/flang-compiler/f18/pull/196 Tree-same-pre-rewrite: false 2018-10-12 07:01:04 +08:00			`! CHECK-NOT: do *[1-9]`
			`! CHECK: omp simd`

			`program P`
			`implicit none`
			`integer N, I`
			`parameter (N=100)`
			`real A(N), B(N), C(N)`

			`!$OMP SIMD`
			`do 10 I = 1, N`
			`A(I) = I * 1.0`
			`10 continue`

			`B = A`

			`!$OMP SIMD`
			`do 20 I = 1, N`
			`C(I) = A(I) + B(I)`
			`write (*,100) I, C(I)`
			`20 continue`

			`100 format(" C(", I3, ")=", F8.2)`
			`end program P`