[gcc r16-6699] Fortran: Test cases from previously fixed bug

[Jerry DeLisle]

https://gcc.gnu.org/g:d1b8ebd8cb67ae57187f92dc7f78fa77f1fada98

commit r16-6699-gd1b8ebd8cb67ae57187f92dc7f78fa77f1fada98
Author: Steven G. Kargl <kargl@gcc.gnu.org>
Date:   Sun Jan 11 18:58:19 2026 -0800

    Fortran: Test cases from previously fixed bug
    
    Adding two testcases from Gerhard Steinmetz from 2016-08-30.
    These have had the dejagnu directives added.  The last comment
    in the PR is from Andrew Pinski notes the PR was fixed in the 9.3,
    10+ timeframe.  The testcases are small.  Committing the tests to
    ensure things are not broken in the future.
    
            PR fortran/77415
    
    gcc/testsuite/ChangeLog:
    
            * gfortran.dg/pr77415_1.f90: New test.
            * gfortran.dg/pr77415_2.f90: New test.

Diff:
---
 gcc/testsuite/gfortran.dg/pr77415_1.f90 | 6 ++++++
 gcc/testsuite/gfortran.dg/pr77415_2.f90 | 8 ++++++++
 2 files changed, 14 insertions(+)

diff --git a/gcc/testsuite/gfortran.dg/pr77415_1.f90 b/gcc/testsuite/gfortran.dg/pr77415_1.f90
new file mode 100644
index 000000000000..004880090442
--- /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 000000000000..858c8223b847
--- /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
+