File tree Expand file tree Collapse file tree 1 file changed +6
-8
lines changed
Expand file tree Collapse file tree 1 file changed +6
-8
lines changed Original file line number Diff line number Diff line change @@ -90,13 +90,12 @@ for ac_flag in none \
9090 '-qrealsize=8'; do
9191 test "x$ac_flag" != xnone && FCFLAGS="$gx_fc_default_real_kind8_flag_FCFLAGS_save ${ac_flag}"
9292 AC_COMPILE_IFELSE ( [ [ program test
93- interface
93+ real :: b=1.0
94+ call test_sub(b)
95+ contains
9496 subroutine test_sub(a)
9597 real(kind=selected_real_kind(15,307)) :: a
9698 end subroutine test_sub
97- end interface
98- real :: b=1.0
99- call test_sub(b)
10099 end program test] ] ,
101100 [ gx_cv_fc_default_real_kind8_flag=$ac_flag; break] )
102101done
@@ -148,13 +147,12 @@ for ac_flag in none \
148147 '-qrealsize=4'; do
149148 test "x$ac_flag" != xnone && FCFLAGS="$gx_fc_default_real_kind4_flag_FCFLAGS_save ${ac_flag}"
150149 AC_COMPILE_IFELSE ( [ [ program test
151- interface
150+ real :: b=1.0
151+ call test_sub(b)
152+ contains
152153 subroutine test_sub(a)
153154 real(kind=selected_real_kind(6, 37)) :: a
154155 end subroutine test_sub
155- end interface
156- real :: b=1.0
157- call test_sub(b)
158156 end program test] ] ,
159157 [ gx_cv_fc_default_real_kind4_flag=$ac_flag; break] )
160158done
You can’t perform that action at this time.
0 commit comments