diff options
| author | Martin Jambor <mjambor@suse.cz> | 2016-11-15 18:14:32 +0100 |
|---|---|---|
| committer | Alexander Monakov <amonakov@gcc.gnu.org> | 2016-11-15 20:14:32 +0300 |
| commit | 18d2ada84b8b162ba6961d18d9db3b743e17db32 (patch) | |
| tree | bb748ab4e2514fc5c9361eb649ccfd2d0630775e /libgomp | |
| parent | 5a65a911cccb7d9491ee529b687d9a2fb526ab9d (diff) | |
| download | gcc-18d2ada84b8b162ba6961d18d9db3b743e17db32.zip gcc-18d2ada84b8b162ba6961d18d9db3b743e17db32.tar.gz gcc-18d2ada84b8b162ba6961d18d9db3b743e17db32.tar.bz2 | |
libgomp testsuite: add missing map clauses
* testsuite/libgomp.fortran/examples-4/device-1.f90 (e_57_1): Add
mapping clauses to target constructs.
* testsuite/libgomp.fortran/examples-4/device-3.f90 (e_57_3): Ditto.
Co-Authored-By: Alexander Monakov <amonakov@ispras.ru>
From-SVN: r242436
Diffstat (limited to 'libgomp')
| -rw-r--r-- | libgomp/ChangeLog | 7 | ||||
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/examples-4/device-1.f90 | 12 | ||||
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/examples-4/device-3.f90 | 4 |
3 files changed, 15 insertions, 8 deletions
diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog index 6d4b4f7..a982c3a 100644 --- a/libgomp/ChangeLog +++ b/libgomp/ChangeLog @@ -1,3 +1,10 @@ +2016-11-15 Martin Jambor <mjambor@suse.cz> + Alexander Monakov <amonakov@ispras.ru> + + * testsuite/libgomp.fortran/examples-4/device-1.f90 (e_57_1): Add + mapping clauses to target constructs. + * testsuite/libgomp.fortran/examples-4/device-3.f90 (e_57_3): Ditto. + 2016-11-15 Matthias Klose <doko@ubuntu.com> * configure: Regenerate. diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/device-1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/device-1.f90 index a411db4..30148f1 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/device-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/device-1.f90 @@ -9,12 +9,12 @@ program e_57_1 a = 100 b = 0 - !$omp target if(a > 200 .and. a < 400) + !$omp target map(from: c) if(a > 200 .and. a < 400) c = omp_is_initial_device () !$omp end target !$omp target data map(to: b) if(a > 200 .and. a < 400) - !$omp target + !$omp target map(from: b, d) b = 100 d = omp_is_initial_device () !$omp end target @@ -25,12 +25,12 @@ program e_57_1 a = a + 200 b = 0 - !$omp target if(a > 200 .and. a < 400) + !$omp target map(from: c) if(a > 200 .and. a < 400) c = omp_is_initial_device () !$omp end target !$omp target data map(to: b) if(a > 200 .and. a < 400) - !$omp target + !$omp target map(from: b, d) b = 100 d = omp_is_initial_device () !$omp end target @@ -41,12 +41,12 @@ program e_57_1 a = a + 200 b = 0 - !$omp target if(a > 200 .and. a < 400) + !$omp target map(from: c) if(a > 200 .and. a < 400) c = omp_is_initial_device () !$omp end target !$omp target data map(to: b) if(a > 200 .and. a < 400) - !$omp target + !$omp target map(from: b, d) b = 100 d = omp_is_initial_device () !$omp end target diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/device-3.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/device-3.f90 index a29f1b5..d770b910 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 |