build(preprocess): define feature-macro values

Co-authored-by: Dan Bonachea <dobonachea@lbl.gov>
BerkeleyLab · Sep 8, 2024 · b09efc5 · b09efc5
1 parent c60ab05
commit b09efc5
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/test/prif_init_test_m.F90 b/test/prif_init_test_m.F90
@@ -1,14 +1,18 @@
 ! Copyright (c) 2022-2024, The Regents of the University of California and Sourcery Institute
 ! Terms of use are as specified in LICENSE.txt
 
-#ifndef __GFORTRAN__
-  #define F2008_PROC_PTR_ARG_ASSOCIATION
+#ifndef F2008_PROC_PTR_ARG_ASSOCIATION
+  #ifdef __GFORTRAN__
+    #define F2008_PROC_PTR_ARG_ASSOCIATION 0
+  #else    
+    #define F2008_PROC_PTR_ARG_ASSOCIATION 1  
+  #endif
 #endif
 
 module prif_init_test_m
   use prif, only : prif_init, PRIF_STAT_ALREADY_INIT
   use julienne_m, only : test_t, test_result_t, test_description_t, test_description_substring
-#ifndef F2008_PROC_PTR_ARG_ASSOCIATION
+#if !F2008_PROC_PTR_ARG_ASSOCIATION
   use julienne_m, only : test_function_i
 #endif
     implicit none