Mercurial > hg > CbC > CbC_gcc

comparison libgomp/openacc_lib.h @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children 1830386684a0
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
1 ! OpenACC Runtime Library Definitions. -*- mode: fortran -*- 1 ! OpenACC Runtime Library Definitions. -*- mode: fortran -*-
2 2
3 ! Copyright (C) 2014-2017 Free Software Foundation, Inc. 3 ! Copyright (C) 2014-2018 Free Software Foundation, Inc.
4 4
5 ! Contributed by Tobias Burnus <burnus@net-b.de> 5 ! Contributed by Tobias Burnus <burnus@net-b.de>
6 ! and Mentor Embedded. 6 ! and Mentor Embedded.
7 7
8 ! This file is part of the GNU Offloading and Multi Processing Library 8 ! This file is part of the GNU Offloading and Multi Processing Library
271 subroutine acc_copyout_array_h (a) 271 subroutine acc_copyout_array_h (a)
272 type (*), dimension (..), contiguous :: a 272 type (*), dimension (..), contiguous :: a
273 end subroutine 273 end subroutine
274 end interface 274 end interface
275 275
276 interface acc_copyout_finalize
277 subroutine acc_copyout_finalize_32_h (a, len)
278 use iso_c_binding, only: c_int32_t
279 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
280 type (*), dimension (*) :: a
281 integer (c_int32_t) len
282 end subroutine
283
284 subroutine acc_copyout_finalize_64_h (a, len)
285 use iso_c_binding, only: c_int64_t
286 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
287 type (*), dimension (*) :: a
288 integer (c_int64_t) len
289 end subroutine
290
291 subroutine acc_copyout_finalize_array_h (a)
292 type (*), dimension (..), contiguous :: a
293 end subroutine
294 end interface
295
276 interface acc_delete 296 interface acc_delete
277 subroutine acc_delete_32_h (a, len) 297 subroutine acc_delete_32_h (a, len)
278 use iso_c_binding, only: c_int32_t 298 use iso_c_binding, only: c_int32_t
279 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 299 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
280 type (*), dimension (*) :: a 300 type (*), dimension (*) :: a
287 type (*), dimension (*) :: a 307 type (*), dimension (*) :: a
288 integer (c_int64_t) len 308 integer (c_int64_t) len
289 end subroutine 309 end subroutine
290 310
291 subroutine acc_delete_array_h (a) 311 subroutine acc_delete_array_h (a)
312 type (*), dimension (..), contiguous :: a
313 end subroutine
314 end interface
315
316 interface acc_delete_finalize
317 subroutine acc_delete_finalize_32_h (a, len)
318 use iso_c_binding, only: c_int32_t
319 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
320 type (*), dimension (*) :: a
321 integer (c_int32_t) len
322 end subroutine
323
324 subroutine acc_delete_finalize_64_h (a, len)
325 use iso_c_binding, only: c_int64_t
326 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
327 type (*), dimension (*) :: a
328 integer (c_int64_t) len
329 end subroutine
330
331 subroutine acc_delete_finalize_array_h (a)
292 type (*), dimension (..), contiguous :: a 332 type (*), dimension (..), contiguous :: a
293 end subroutine 333 end subroutine
294 end interface 334 end interface
295 335
296 interface acc_update_device 336 interface acc_update_device