From 1a576b133282fd16192fd76e6f10bc4bc16e033c Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Wed, 31 Aug 2016 07:50:44 +0000 Subject: [PATCH] re PR testsuite/77418 (SELECT TYPE associating entity can be (de)allocated) 2016-08-31 Paul Thomas PR fortran/77418 * gfortran.dg/dtio_5.f90: Remove the non-standard deallocation of the associate entity and replace with a pointer to the intended item on the stack. From-SVN: r239881 --- gcc/testsuite/ChangeLog | 7 +++++++ gcc/testsuite/gfortran.dg/dtio_5.f90 | 4 +++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 3d385bdc38b..c8b85fa83ea 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,10 @@ +2016-08-31 Paul Thomas + + PR fortran/77418 + * gfortran.dg/dtio_5.f90: Remove the non-standard deallocation + of the associate entity and replace with a pointer to the + intended item on the stack. + 2016-08-31 Jerry DeLisle Paul Thomas diff --git a/gcc/testsuite/gfortran.dg/dtio_5.f90 b/gcc/testsuite/gfortran.dg/dtio_5.f90 index 6381d4ddd98..8642240c4d5 100644 --- a/gcc/testsuite/gfortran.dg/dtio_5.f90 +++ b/gcc/testsuite/gfortran.dg/dtio_5.f90 @@ -136,6 +136,7 @@ contains function pop_integer(this) result(item) class(integer_stack) :: this + class(stack), pointer :: dealloc_item integer item if (this%empty()) then @@ -149,8 +150,9 @@ contains class default stop 'Error #1! pop_integer encountered non-integer stack item' end select + dealloc_item => this%next this%next => top%next - deallocate(top) + deallocate(dealloc_item) class default stop 'Error #2! pop_integer encountered non-integer_stack item' end select -- 2.30.2