build(include): fix macro logic/syntax

Author: rouson

include/language-support.F90

@@ -1,6 +1,12 @@
 ! Copyright (c), The Regents of the University of California
 ! Terms of use are as specified in LICENSE.txt
 
+#ifdef __GNUC__
+#  define GCC_VERSION (__GNUC__ * 10000 + __GNUC_MINOR__ * 100 + __GNUC_PATCHLEVEL__)
+#else
+#  define GCC_VERSION 0
+#endif
+
 #ifndef HAVE_SELECTED_LOGICAL_KIND
   ! Define whether the compiler supports standard intrinsic function selected_logical_kind(), 
   ! a feature introduced in Fortran 2023 clause 16.9.182.
@@ -15,9 +21,9 @@
   ! Define whether the compiler supports associating a procedure pointer dummy argument with an
   ! actual argument that is a valid target for the pointer dummy in a procedure assignment, a 
   ! feature introduced in Fortran 2008 and described in Fortran 2023 clause 15.5.2.10 paragraph 5.
-#if defined(_CRAYFTN) || defined(__INTEL_COMPILER) || defined(NAGFOR) || defined(__flang__)
-#define HAVE_PROCEDURE_ACTUAL_FOR_POINTER_DUMMY 1
+#if defined _CRAYFTN  || defined __INTEL_COMPILER  || defined NAGFOR  || defined __flang__ || (GCC_VERSION > 140200)
+#  define HAVE_PROCEDURE_ACTUAL_FOR_POINTER_DUMMY 1
 #else
-#define HAVE_PROCEDURE_ACTUAL_FOR_POINTER_DUMMY 0
+#  define HAVE_PROCEDURE_ACTUAL_FOR_POINTER_DUMMY 0
 #endif  
 #endif

include/macro.F90

@@ -0,0 +1,10 @@
+#include "language-support.F90"
+implicit none
+
+#if (GCC_VERSION > 140200)
+  print *,"(GCC_VERSION > 140200)"
+#else
+  print *,"! (GCC_VERSION > 140200)"
+#endif
+
+end