diff --git a/src/atlas_f/atlas_f.h.in b/src/atlas_f/atlas_f.h.in index cea48ee0e..94b153f32 100644 --- a/src/atlas_f/atlas_f.h.in +++ b/src/atlas_f/atlas_f.h.in @@ -18,6 +18,7 @@ #define ATLAS_HAVE_OMP @atlas_HAVE_OMP_Fortran@ #define ATLAS_HAVE_ACC @atlas_HAVE_ACC@ +#define ATLAS_HAVE_CUDA @atlas_HAVE_CUDA@ #define ATLAS_BITS_GLOBAL @ATLAS_BITS_GLOBAL@ #define ATLAS_BITS_LOCAL @ATLAS_BITS_LOCAL@ diff --git a/src/tests/field/fctest_field_host.F90 b/src/tests/field/fctest_field_host.F90 index 955dd159c..88d27b102 100644 --- a/src/tests/field/fctest_field_host.F90 +++ b/src/tests/field/fctest_field_host.F90 @@ -10,6 +10,7 @@ ! @author Willem Deconinck #include "fckit/fctest.h" +#include "atlas/atlas_f.h" ! ----------------------------------------------------------------------------- @@ -49,7 +50,9 @@ module fcta_Field_fxt call field%data(view) FCTEST_CHECK( .not. field%host_needs_update() ) +#if ! ATLAS_HAVE_CUDA FCTEST_CHECK( .not. field%device_needs_update() ) +#endif call field%update_device() FCTEST_CHECK( .not. field%device_needs_update() )