https://gcc.gnu.org/g:1cdfbfdc4323695b1083d9a9299bcb85b0915cf6
commit r16-6857-g1cdfbfdc4323695b1083d9a9299bcb85b0915cf6 Author: Jerry DeLisle <[email protected]> Date: Sat Jan 17 10:02:26 2026 -0800 Fortran: Add new test case PR fortran/94377 gcc/testsuite/ChangeLog: * gfortran.dg/pr94377.f90: New test, failed on gcc-15 Diff: --- gcc/testsuite/gfortran.dg/pr94377.f90 | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) diff --git a/gcc/testsuite/gfortran.dg/pr94377.f90 b/gcc/testsuite/gfortran.dg/pr94377.f90 new file mode 100644 index 000000000000..0ed518c78a9d --- /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 +
