ompi_fortran_check_ignore_tkr.m4: fix fortran test errors

Fix bugs in the Fortran test code:

1. Called with "type(*)" instead of "type(*), dimension(*)"
2. Subroutine type was "real" when it should have been "complex"
3. Don't use a common block + BIND in the "use...only" test.  Per
   #9812 (comment),
   this seems to violate the Fortran standard.  Instead, just use
   conflicting variables in the aaa and bbb modules, and trust
   "use...only" to avoid the conflicts.

Signed-off-by: Jeff Squyres <[email protected]>

Author: jsquyres

config/ompi_fortran_check_ignore_tkr.m4

@@ -13,7 +13,7 @@ dnl                         All rights reserved.
 dnl Copyright (c) 2007      Los Alamos National Security, LLC.  All rights
 dnl                         reserved.
 dnl Copyright (c) 2007      Sun Microsystems, Inc.  All rights reserved.
-dnl Copyright (c) 2009-2015 Cisco Systems, Inc.  All rights reserved.
+dnl Copyright (c) 2009-2022 Cisco Systems, Inc.  All rights reserved.
 dnl $COPYRIGHT$
 dnl
 dnl Additional copyrights may follow
@@ -72,7 +72,7 @@ AC_DEFUN([_OMPI_FORTRAN_CHECK_IGNORE_TKR], [
 
     # Vendor-neutral, TYPE(*) syntax
     OMPI_FORTRAN_CHECK_IGNORE_TKR_SUB(
-         [!], [type(*)],
+         [!], [type(*), dimension(*)],
          [TYPE(*), DIMENSION(*)],
          [happy=1], [happy=0])
 
@@ -185,7 +185,7 @@ AC_DEFUN([OMPI_FORTRAN_CHECK_IGNORE_TKR_SUB], [
 
   subroutine force_assumed_shape(a, count)
     integer :: count
-    real, dimension(:,:) :: a
+    complex, dimension(:,:) :: a
     call foo(a, count)
   end subroutine force_assumed_shape
 

config/ompi_fortran_check_use_only.m4

@@ -42,14 +42,19 @@ AC_DEFUN([OMPI_FORTRAN_CHECK_USE_ONLY],[
        [AC_LANG_PUSH([Fortran])
         cat > aaa.f90 << EOF
 MODULE aaa
-INTEGER :: CMON(1)
-COMMON/CMMON/CMON
+! These 2 have the same names as variables in bbb
+! but they should not clash if we only import global_aaa
+INTEGER :: local1
+REAL :: local2
 INTEGER :: global_aaa
 END MODULE aaa
 EOF
         cat > bbb.f90 << EOF
 MODULE bbb
-integer, bind(C, name="cmmon_") :: CMON
+! These 2 have the same names as variables in aaa
+! but they should not clash if we only import global_bbb
+INTEGER :: local1
+COMPLEX :: local2
 INTEGER :: global_bbb
 END MODULE bbb
 EOF