Fortran: Add new test case

	PR fortran/94377

gcc/testsuite/ChangeLog:

	* gfortran.dg/pr94377.f90: New test, failed on gcc-15

diff --git a/gcc/testsuite/gfortran.dg/pr94377.f90 b/gcc/testsuite/gfortran.dg/pr94377.f90
new file mode 100644 (file)
index 0000000..0ed518c
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr94377.f90
@@ -0,0 +1,26 @@
+! { dg-do run }
+! Test case from the reporter, PR94377
+program pdt
+  type :: av_t(n)
+    integer, len :: n
+    integer :: i
+    real :: c
+    real :: u(n)
+  end type av_t
+  type(av_t(:)), allocatable :: av(:)
+  integer :: k2, k3
+  k2 = 3
+  k3 = 5
+contains
+  subroutine al_test(k)
+    integer, intent(in) :: k
+    integer :: ista
+    if (k == 1)  then
+      allocate ( av_t(k2) :: av(k3), stat=ista)
+      return
+    else
+      deallocate(av, stat=ista)
+    end if
+  end subroutine al_test
+end program pdt
+