From 6f0f202b9f2bc45d82dc3e524508f7a8849be60f Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Wed, 30 Oct 2024 07:49:52 +0000 Subject: Fortran: Move pr115070.f90 to ieee directory [PR117335]. 2024-10-30 Paul Thomas gcc/testsuite/ PR fortran/117335 * gfortran.dg/pr115070.f90: Delete. * gfortran.dg/ieee/pr115070.f90: Moved to ieee directory to prevent failures on incompatible architectures. --- gcc/testsuite/gfortran.dg/ieee/pr115070.f90 | 28 ++++++++++++++++++++++++++++ gcc/testsuite/gfortran.dg/pr115070.f90 | 28 ---------------------------- 2 files changed, 28 insertions(+), 28 deletions(-) create mode 100644 gcc/testsuite/gfortran.dg/ieee/pr115070.f90 delete mode 100644 gcc/testsuite/gfortran.dg/pr115070.f90 (limited to 'gcc') diff --git a/gcc/testsuite/gfortran.dg/ieee/pr115070.f90 b/gcc/testsuite/gfortran.dg/ieee/pr115070.f90 new file mode 100644 index 0000000..9378f77 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/ieee/pr115070.f90 @@ -0,0 +1,28 @@ +! { dg-do compile } +! +! Test the fix for PR115070 +! +! Contributed by Sebastien Bardeau +! +module my_mod + type my_type + integer :: a + contains + final :: myfinal + end type my_type +contains + subroutine my_sub(obs) + use ieee_arithmetic + class(my_type), intent(out) :: obs + end subroutine my_sub + subroutine myfinal (arg) + type (my_type) :: arg + print *, arg%a + end +end module my_mod + + use my_mod + type (my_type) :: z + z%a = 42 + call my_sub (z) +end diff --git a/gcc/testsuite/gfortran.dg/pr115070.f90 b/gcc/testsuite/gfortran.dg/pr115070.f90 deleted file mode 100644 index 9378f77..0000000 --- a/gcc/testsuite/gfortran.dg/pr115070.f90 +++ /dev/null @@ -1,28 +0,0 @@ -! { dg-do compile } -! -! Test the fix for PR115070 -! -! Contributed by Sebastien Bardeau -! -module my_mod - type my_type - integer :: a - contains - final :: myfinal - end type my_type -contains - subroutine my_sub(obs) - use ieee_arithmetic - class(my_type), intent(out) :: obs - end subroutine my_sub - subroutine myfinal (arg) - type (my_type) :: arg - print *, arg%a - end -end module my_mod - - use my_mod - type (my_type) :: z - z%a = 42 - call my_sub (z) -end -- cgit v1.1