blob: 54a781eae69e96423ae2a482a9c93048c75591a2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! { dg-do run }
!
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
|
