ifx: tweaks for the compilers preprocessor

ifx preprocess treats '!'s as if they are comments even
at the preprocess level so we need to make sure any
defines to be used in the preprocessor stage to not
include '!'s in them.

Signed-off-by: Howard Pritchard <[email protected]>

Author: hppritcha

config/ompi_setup_mpi_fortran.m4

@@ -899,11 +899,11 @@ end type test_mpi_handle],
 
     AS_IF([test $OMPI_FORTRAN_HAVE_TS -eq 1],
           [OMPI_F08_IGNORE_TKR_TYPE="type(*), dimension(..)"
-           OMPI_F08_IGNORE_TKR_PREDECL="! no attribute required for"
+           OMPI_F08_IGNORE_TKR_PREDECL="no attribute required for"
            OMPI_F08_BINDINGS_EXTENSION="ts"
            OMPI_F08_BINDINGS_TS_SUFFIX="ts"],
           [OMPI_F08_IGNORE_TKR_TYPE=$OMPI_FORTRAN_IGNORE_TKR_TYPE
-           OMPI_F08_IGNORE_TKR_PREDECL=$OMPI_FORTRAN_IGNORE_TKR_PREDECL
+           OMPI_F08_IGNORE_TKR_PREDECL=${OMPI_FORTRAN_IGNORE_TKR_PREDECL:1}
            OMPI_F08_BINDINGS_EXTENSION="f"
            OMPI_F08_BINDINGS_TS_SUFFIX=""])
     AC_SUBST(OMPI_F08_BINDINGS_EXTENSION)

ompi/mpi/bindings/ompi_bindings/fortran_type.py

@@ -147,7 +147,7 @@ def validate_dep_param_keys(param_name, keys):
         util.validate_allowed_keys(keys, ['count', 'type', 'comm'], 'BUFFER', param_name)
 
     def interface_predeclare(self):
-        return f'OMPI_F08_IGNORE_TKR_PREDECL {self.name}'
+        return f'!OMPI_F08_IGNORE_TKR_PREDECL {self.name}'
 
     def declare(self):
         return f'OMPI_F08_IGNORE_TKR_TYPE, INTENT(IN) :: {self.name}'