From 3401f605131befa51624d88faf6f8808b1cdfa41 Mon Sep 17 00:00:00 2001
From: Ryan Mulhall <35538242+rem1776@users.noreply.github.com>
Date: Wed, 9 Oct 2024 11:26:59 -0400
Subject: [PATCH] build: remove interface in m4 check that causes false
 negatives with intel -warn flag (#1583)

---
 m4/gx_fortran_options.m4 | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/m4/gx_fortran_options.m4 b/m4/gx_fortran_options.m4
index 04980c1b6..294264ead 100644
--- a/m4/gx_fortran_options.m4
+++ b/m4/gx_fortran_options.m4
@@ -90,13 +90,12 @@ for ac_flag in none \
                '-qrealsize=8'; do
   test "x$ac_flag" != xnone && FCFLAGS="$gx_fc_default_real_kind8_flag_FCFLAGS_save ${ac_flag}"
   AC_COMPILE_IFELSE([[      program test
-      interface
+      real :: b=1.0
+      call test_sub(b)
+      contains
       subroutine test_sub(a)
       real(kind=selected_real_kind(15,307)) :: a
       end subroutine test_sub
-      end interface
-      real :: b=1.0
-      call test_sub(b)
       end program test]],
      [gx_cv_fc_default_real_kind8_flag=$ac_flag; break])
 done
@@ -148,13 +147,12 @@ for ac_flag in none \
                '-qrealsize=4'; do
   test "x$ac_flag" != xnone && FCFLAGS="$gx_fc_default_real_kind4_flag_FCFLAGS_save ${ac_flag}"
   AC_COMPILE_IFELSE([[      program test
-      interface
+      real :: b=1.0
+      call test_sub(b)
+      contains
       subroutine test_sub(a)
       real(kind=selected_real_kind(6, 37)) :: a
       end subroutine test_sub
-      end interface
-      real :: b=1.0
-      call test_sub(b)
       end program test]],
      [gx_cv_fc_default_real_kind4_flag=$ac_flag; break])
 done