Hi,
yesterday I forgot to send out the following patch. The test
libgomp/testsuite/libgomp.fortran/examples-4/device-3.f90 was failing
for me when I was testing the HSA branch merge but I believe the test
itself is wrong and the failure is due to us now adhering to OpenMP
4.5 default mapping of scalars (i.e. firstprivate, as opposed to
tofrom in 4.0) and the test itself needs to be fixed in the following
way.
OK for trunk? Thanks,
Martin
2016-11-11 Martin Jambor <mjam...@suse.cz>
* device-3.f90 (e_57_3): Add a mapping clause to target construct.
diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/device-3.f90
b/libgomp/testsuite/libgomp.fortran/examples-4/device-3.f90
index a29f1b5..95d9f44 100644
--- a/libgomp/testsuite/libgomp.fortran/examples-4/device-3.f90
+++ b/libgomp/testsuite/libgomp.fortran/examples-4/device-3.f90
@@ -8,13 +8,13 @@ program e_57_3
integer :: default_device
default_device = omp_get_default_device ()
- !$omp target
+ !$omp target map(from:res)
res = omp_is_initial_device ()
!$omp end target
if (res) call abort
call omp_set_default_device (omp_get_num_devices ())
- !$omp target
+ !$omp target map(from:res)
res = omp_is_initial_device ()
!$omp end target
if (.not. res) call abort
