diff options
| author | Thomas Schwinge <thomas@codesourcery.com> | 2017-05-24 15:23:55 +0200 |
|---|---|---|
| committer | Thomas Schwinge <tschwinge@gcc.gnu.org> | 2017-05-24 15:23:55 +0200 |
| commit | 318686c21a49aa7dbf6d04e510e6e513195256e3 (patch) | |
| tree | 35a95fad166ea1cdbb27034040eef3e3e0b888fa /libgomp/openacc_lib.h | |
| parent | a67455348046637027060e225a5c022c676426b7 (diff) | |
| download | gcc-318686c21a49aa7dbf6d04e510e6e513195256e3.zip gcc-318686c21a49aa7dbf6d04e510e6e513195256e3.tar.gz gcc-318686c21a49aa7dbf6d04e510e6e513195256e3.tar.bz2 | |
Fortran OpenACC "openacc_lib.h": acc_pcopyin, acc_pcreate
libgomp/
* openacc_lib.h (acc_pcopyin, acc_pcreate): Route to
acc_present_or_copyin and acc_present_or_create procedures,
respectively.
* testsuite/libgomp.oacc-fortran/lib-32-1.f: Exercise these, and
generally different variants of OpenACC Runtime Library functions.
* testsuite/libgomp.oacc-fortran/lib-32-2.f: Likewise.
From-SVN: r248412
Diffstat (limited to 'libgomp/openacc_lib.h')
| -rw-r--r-- | libgomp/openacc_lib.h | 42 |
1 files changed, 7 insertions, 35 deletions
diff --git a/libgomp/openacc_lib.h b/libgomp/openacc_lib.h index 65f47a8..7818bd7 100644 --- a/libgomp/openacc_lib.h +++ b/libgomp/openacc_lib.h @@ -191,23 +191,9 @@ end interface interface acc_pcopyin - subroutine acc_pcopyin_32_h (a, len) - use iso_c_binding, only: c_int32_t - !GCC$ ATTRIBUTES NO_ARG_CHECK :: a - type (*), dimension (*) :: a - integer (c_int32_t) len - end subroutine - - subroutine acc_pcopyin_64_h (a, len) - use iso_c_binding, only: c_int64_t - !GCC$ ATTRIBUTES NO_ARG_CHECK :: a - type (*), dimension (*) :: a - integer (c_int64_t) len - end subroutine - - subroutine acc_pcopyin_array_h (a) - type (*), dimension (..), contiguous :: a - end subroutine + procedure :: acc_present_or_copyin_32_h + procedure :: acc_present_or_copyin_64_h + procedure :: acc_present_or_copyin_array_h end interface interface acc_create @@ -251,23 +237,9 @@ end interface interface acc_pcreate - subroutine acc_pcreate_32_h (a, len) - use iso_c_binding, only: c_int32_t - !GCC$ ATTRIBUTES NO_ARG_CHECK :: a - type (*), dimension (*) :: a - integer (c_int32_t) len - end subroutine - - subroutine acc_pcreate_64_h (a, len) - use iso_c_binding, only: c_int64_t - !GCC$ ATTRIBUTES NO_ARG_CHECK :: a - type (*), dimension (*) :: a - integer (c_int64_t) len - end subroutine - - subroutine acc_pcreate_array_h (a) - type (*), dimension (..), contiguous :: a - end subroutine + procedure :: acc_present_or_create_32_h + procedure :: acc_present_or_create_64_h + procedure :: acc_present_or_create_array_h end interface interface acc_copyout @@ -353,7 +325,7 @@ ! acc_map_data: Only available in C/C++ ! acc_unmap_data: Only available in C/C++ ! acc_deviceptr: Only available in C/C++ - ! acc_ostptr: Only available in C/C++ + ! acc_hostptr: Only available in C/C++ interface acc_is_present function acc_is_present_32_h (a, len) |