diff options
| -rw-r--r-- | libgomp/ChangeLog | 5 | ||||
| -rw-r--r-- | libgomp/config/accel/openacc.f90 | 2 | ||||
| -rw-r--r-- | libgomp/openacc.f90 | 2 | ||||
| -rw-r--r-- | libgomp/openacc.h | 2 | ||||
| -rw-r--r-- | libgomp/openacc_lib.h | 2 |
5 files changed, 9 insertions, 4 deletions
diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog index 1a7046f..b6828ad 100644 --- a/libgomp/ChangeLog +++ b/libgomp/ChangeLog @@ -1,5 +1,10 @@ 2020-04-29 Thomas Schwinge <thomas@codesourcery.com> + * config/accel/openacc.f90 (acc_device_current): Set to '-1'. + * openacc.f90 (acc_device_current): Likewise. + * openacc.h (acc_device_current): Likewise. + * openacc_lib.h (acc_device_current): Likewise. + PR target/94282 * testsuite/libgomp.c-c++-common/function-not-offloaded.c: Remove 'dg-allow-blank-lines-in-output'. diff --git a/libgomp/config/accel/openacc.f90 b/libgomp/config/accel/openacc.f90 index 275afe4..9933073 100644 --- a/libgomp/config/accel/openacc.f90 +++ b/libgomp/config/accel/openacc.f90 @@ -44,7 +44,7 @@ module openacc_kinds integer, parameter :: acc_device_kind = int32 ! Keep in sync with include/gomp-constants.h. - integer (acc_device_kind), parameter :: acc_device_current = -3 + integer (acc_device_kind), parameter :: acc_device_current = -1 integer (acc_device_kind), parameter :: acc_device_none = 0 integer (acc_device_kind), parameter :: acc_device_default = 1 integer (acc_device_kind), parameter :: acc_device_host = 2 diff --git a/libgomp/openacc.f90 b/libgomp/openacc.f90 index 467fb61..111705d 100644 --- a/libgomp/openacc.f90 +++ b/libgomp/openacc.f90 @@ -41,7 +41,7 @@ module openacc_kinds integer, parameter :: acc_device_kind = int32 ! Keep in sync with include/gomp-constants.h. - integer (acc_device_kind), parameter :: acc_device_current = -3 + integer (acc_device_kind), parameter :: acc_device_current = -1 integer (acc_device_kind), parameter :: acc_device_none = 0 integer (acc_device_kind), parameter :: acc_device_default = 1 integer (acc_device_kind), parameter :: acc_device_host = 2 diff --git a/libgomp/openacc.h b/libgomp/openacc.h index 6173646..1dc471f 100644 --- a/libgomp/openacc.h +++ b/libgomp/openacc.h @@ -49,7 +49,7 @@ extern "C" { /* Types */ typedef enum acc_device_t { /* Keep in sync with include/gomp-constants.h. */ - acc_device_current = -3, + acc_device_current = -1, acc_device_none = 0, acc_device_default = 1, acc_device_host = 2, diff --git a/libgomp/openacc_lib.h b/libgomp/openacc_lib.h index ee08e97..82a3735 100644 --- a/libgomp/openacc_lib.h +++ b/libgomp/openacc_lib.h @@ -37,7 +37,7 @@ integer, parameter :: acc_device_kind = 4 ! Keep in sync with include/gomp-constants.h. - integer (acc_device_kind), parameter :: acc_device_current = -3 + integer (acc_device_kind), parameter :: acc_device_current = -1 integer (acc_device_kind), parameter :: acc_device_none = 0 integer (acc_device_kind), parameter :: acc_device_default = 1 integer (acc_device_kind), parameter :: acc_device_host = 2 |