On Fri, Jan 10, 2025 at 05:19:34PM +0000, Paul Richard Thomas wrote:
>
> As of today, Gerhard Steinmetz has no fewer than 33 regressions to his name
> out of a total of 54 for fortran and libgfortran. It's time that some of
> these bugs are swatted, I think :-)
>
When I was much more active in all things gfortran,
I found Gerhard's bug reports to be some of the best.
Small, self-contained code snippets made debugging
easiers.
Seems PR 77415 is fixed. I've converted the codes
in the PR to testcases.
diff --git a/gcc/testsuite/gfortran.dg/pr77415_1.f90
b/gcc/testsuite/gfortran.dg/pr77415_1.f90
new file mode 100644
index 00000000000..00488009044
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr77415_1.f90
@@ -0,0 +1,6 @@
+integer function f()
+ f(g) = 0 ! { dg-error "Statement function" }
+contains
+ integer function g()
+ end
+end
diff --git a/gcc/testsuite/gfortran.dg/pr77415_2.f90
b/gcc/testsuite/gfortran.dg/pr77415_2.f90
new file mode 100644
index 00000000000..858c8223b84
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr77415_2.f90
@@ -0,0 +1,8 @@
+! { dg-do compile }
+function f()
+ f(g) = 0 ! { dg-error "Statement function" }
+contains
+ function g()
+ end
+end
+
--
Steve
