Fix atlas_fctest_field_host with ENABLE_CUDA=1 (fixes #216)

ecmwf · Aug 7, 2024 · 74baa23 · 74baa23
1 parent ceb25f9
commit 74baa23
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git 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
@@ -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() )