Merge pull request #222 from BerkeleyLab/fix-test-main

Fix: use a feature-based macro in test/main.F90
BerkeleyLab · Oct 30, 2024 · 12c18db · 12c18db
2 parents 9a277f2 + 3dc509f
commit 12c18db
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/test/main.F90 b/test/main.F90
@@ -1,5 +1,8 @@
 ! Copyright (c), The Regents of the University of California
 ! Terms of use are as specified in LICENSE.txt
+
+#include "language-support.F90"
+
 program main
   use neural_network_test_m, only : neural_network_test_t
   use asymmetric_network_test_m, only : asymmetric_network_test_t
@@ -59,7 +62,7 @@ program main
   print *,"Test suite execution time: ",t_finish - t_start
   print *
   print '(*(a,:,g0))',"_________ In total, ",passes," of ",tests, " tests pass. _________"
-#ifndef __flang__
+#ifdef MULTI_IMAGE_SUPPORT
   sync all
 #endif
   print *