From 65b67cf390bc0240a91730e8eb95d7a7b2d8aca0 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Tue, 8 Oct 2019 12:30:44 +0000 Subject: Fortran - fix OpenMP 'target simd' gcc/fortran/ * parse.c (parse_executable): Add missing ST_OMP_TARGET_SIMD. libgomp/ * testsuite/libgomp.fortran/target-simd.f90: New. From-SVN: r276698 --- libgomp/ChangeLog | 4 ++++ libgomp/testsuite/libgomp.fortran/target-simd.f90 | 26 +++++++++++++++++++++++ 2 files changed, 30 insertions(+) create mode 100644 libgomp/testsuite/libgomp.fortran/target-simd.f90 (limited to 'libgomp') diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog index 2059e05..67d5737 100644 --- a/libgomp/ChangeLog +++ b/libgomp/ChangeLog @@ -1,3 +1,7 @@ +2019-10-08 Tobias Burnus + + * gfortran.dg/gomp/target-simd.f90: New. + 2019-10-02 Julian Brown Cesar Philippidis diff --git a/libgomp/testsuite/libgomp.fortran/target-simd.f90 b/libgomp/testsuite/libgomp.fortran/target-simd.f90 new file mode 100644 index 0000000..d49ae74 --- /dev/null +++ b/libgomp/testsuite/libgomp.fortran/target-simd.f90 @@ -0,0 +1,26 @@ +! { dg-do run } + +program test + implicit none + real, allocatable :: a(:), b(:) + integer :: i + + a = [(i, i = 1, 100)] + allocate(b, mold=a) + b = 0 + + !$omp target simd map(to:a) map(from:b) + do i = 0, size(a) + b(i) = 5.0 * a(i) + end do + + if (any (b - 5.0 *a > 10.0*epsilon(a))) call abort() + + !$omp target simd map(to:a) map(from:b) + do i = 0, size(a) + b(i) = 2.0 * a(i) + end do + !$omp end target simd + + if (any (b - 2.0 *a > 10.0*epsilon(a))) call abort() +end program test -- cgit v1.1