From aa09e32c4d4ebdd58f677a7ecbdcb93cce84823d Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Sun, 24 Nov 2024 14:01:21 +0000 Subject: Fortran: Correct name of testcase [PR84869] 2024-11-24 Paul Thomas gcc/testsuite/ PR fortran/84869 * gfortran.dg/pr84869.f90: Copy of test below with number corrected. * gfortran.dg/pr85869.f90: deleted. --- gcc/testsuite/gfortran.dg/pr84869.f90 | 25 +++++++++++++++++++++++++ gcc/testsuite/gfortran.dg/pr85869.f90 | 25 ------------------------- 2 files changed, 25 insertions(+), 25 deletions(-) create mode 100644 gcc/testsuite/gfortran.dg/pr84869.f90 delete mode 100644 gcc/testsuite/gfortran.dg/pr85869.f90 (limited to 'gcc') diff --git a/gcc/testsuite/gfortran.dg/pr84869.f90 b/gcc/testsuite/gfortran.dg/pr84869.f90 new file mode 100644 index 0000000..fe40b62 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr84869.f90 @@ -0,0 +1,25 @@ +! { dg-do compile } +! +! Test the fix for PR84869, where line 19 segfaulted. +! +! Contributed by Gerhard Steinmetz +! +program p + type t + integer :: i + end type + call s +contains + function f() + class(t), allocatable :: f(:) + f = [(t(i), i = 1, 10)] + end + subroutine s + class(*), allocatable :: z(:) + allocate (z, source = f ()) ! Segfault in gfc_class_len_get. + select type (z) + type is (t) + if (any (z%i /= [(i, i = 1,10)])) stop 1 + end select + end +end diff --git a/gcc/testsuite/gfortran.dg/pr85869.f90 b/gcc/testsuite/gfortran.dg/pr85869.f90 deleted file mode 100644 index 24caeb4..0000000 --- a/gcc/testsuite/gfortran.dg/pr85869.f90 +++ /dev/null @@ -1,25 +0,0 @@ -! { dg-do compile } -! -! Test the fix for PR85869, where line 19 segfaulted. -! -! Contributed by Gerhard Steinmetz -! -program p - type t - integer :: i - end type - call s -contains - function f() - class(t), allocatable :: f(:) - f = [(t(i), i = 1, 10)] - end - subroutine s - class(*), allocatable :: z(:) - allocate (z, source = f ()) ! Segfault in gfc_class_len_get. - select type (z) - type is (t) - if (any (z%i /= [(i, i = 1,10)])) stop 1 - end select - end -end -- cgit v1.1