From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Sat, 17 Jan 2026 18:02:26 +0000 (-0800)
Subject: Fortran: Add new test case
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1cdfbfdc4323695b1083d9a9299bcb85b0915cf6;p=thirdparty%2Fgcc.git

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
index 00000000000..0ed518c78a9
--- /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
+