diff options
| author | tschwinge <tschwinge@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-05-24 13:23:55 +0000 |
|---|---|---|
| committer | tschwinge <tschwinge@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-05-24 13:23:55 +0000 |
| commit | b70df2112de1c8fb9b448dc24e3a58055e4bbbdc (patch) | |
| tree | 35a95fad166ea1cdbb27034040eef3e3e0b888fa /libgomp/openacc_lib.h | |
| parent | 4a5596a04ac52ae4df1347e7980e0d60fcd1e84b (diff) | |
| download | gcc-b70df2112de1c8fb9b448dc24e3a58055e4bbbdc.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@248412 138bc75d-0d04-0410-961f-82ee72b054a4
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 65f47a8c138..7818bd7efad 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) |