Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.oacc-fortran/lib-3.f @ 138:fc828634a951
merge
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Thu, 08 Nov 2018 14:17:14 +0900 |
parents | 84e7813d76e9 |
children | 1830386684a0 |
line wrap: on
line source
INCLUDE "openacc_lib.h" IF (ACC_GET_NUM_DEVICES (ACC_DEVICE_HOST) .NE. 1) STOP 1 CALL ACC_SET_DEVICE_TYPE (ACC_DEVICE_HOST) IF (ACC_GET_DEVICE_TYPE () .NE. ACC_DEVICE_HOST) STOP 2 CALL ACC_SET_DEVICE_NUM (0, ACC_DEVICE_HOST) IF (ACC_GET_DEVICE_NUM (ACC_DEVICE_HOST) .NE. 0) STOP 3 CALL ACC_SHUTDOWN (ACC_DEVICE_HOST) CALL ACC_INIT (ACC_DEVICE_HOST) CALL ACC_SHUTDOWN (ACC_DEVICE_HOST) END