diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2019-12-17 11:19:32 +0000 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2019-12-17 12:19:32 +0100 |
| commit | 0b8499a4808d5b8b65559c99bb8c68d076f195a3 (patch) | |
| tree | 617a68936b6fa25f2445ff22344fd341560fab8e /libgomp/openacc.f90 | |
| parent | e55cdb1455417b139374bf2eee5fce6692b48de7 (diff) | |
| download | gcc-0b8499a4808d5b8b65559c99bb8c68d076f195a3.zip gcc-0b8499a4808d5b8b65559c99bb8c68d076f195a3.tar.gz gcc-0b8499a4808d5b8b65559c99bb8c68d076f195a3.tar.bz2 | |
libgomp/openacc.f90 – clean-up public/private attributes
* config/accel/openacc.f90 (module openacc_kinds): Use 'PUBLIC' to mark
all symbols as public except for the 'use …, only' imported symbol,
which is private.
(module openacc): Default to 'PRIVATE' to exclude openacc_internal; mark
all symbols from module openacc_kinds as PUBLIC
* openacc.f90: Add comment with crossref to that file and openmp_lib.h;
fix comment typo.
* openacc_lib.h (acc_device_gcn): Add this PARAMETER.
From-SVN: r279456
Diffstat (limited to 'libgomp/openacc.f90')
| -rw-r--r-- | libgomp/openacc.f90 | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/libgomp/openacc.f90 b/libgomp/openacc.f90 index b37f187..fb7fc6e 100644 --- a/libgomp/openacc.f90 +++ b/libgomp/openacc.f90 @@ -27,6 +27,8 @@ ! see the files COPYING3 and COPYING.RUNTIME respectively. If not, see ! <http://www.gnu.org/licenses/>. +! Keep in sync with config/accel/openacc.f90 and openacc_lib.h. + module openacc_kinds use iso_fortran_env, only: int32 implicit none @@ -34,7 +36,7 @@ module openacc_kinds public private :: int32 - ! When adding items, also update 'public' setting in 'module openmp' below. + ! When adding items, also update 'public' setting in 'module openacc' below. integer, parameter :: acc_device_kind = int32 @@ -52,7 +54,7 @@ module openacc_kinds ! Keep in sync with include/gomp-constants.h. integer (acc_handle_kind), parameter :: acc_async_noval = -1 integer (acc_handle_kind), parameter :: acc_async_sync = -2 -end module +end module openacc_kinds module openacc_internal use openacc_kinds @@ -704,7 +706,7 @@ module openacc_internal integer (c_int), value :: async end subroutine end interface -end module +end module openacc_internal module openacc use openacc_kinds @@ -712,6 +714,7 @@ module openacc implicit none private + ! From openacc_kinds public :: acc_device_kind, acc_handle_kind public :: acc_device_none, acc_device_default, acc_device_host @@ -933,7 +936,7 @@ module openacc procedure :: acc_update_self_async_array_h end interface -end module +end module openacc function acc_get_num_devices_h (d) use openacc_internal, only: acc_get_num_devices_l |