From: Paul Thomas <pault@gcc.gnu.org>
Date: Wed, 31 Aug 2016 07:50:44 +0000 (+0000)
Subject: re PR testsuite/77418 (SELECT TYPE associating entity can be (de)allocated)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=1a576b133282fd16192fd76e6f10bc4bc16e033c;p=gcc.git

re PR testsuite/77418 (SELECT TYPE associating entity can be (de)allocated)

2016-08-31  Paul Thomas  <pault@gcc.gnu.org>

	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
---

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  <pault@gcc.gnu.org>
+
+	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  <jvdelisle@gcc.gnu.org>
 	Paul Thomas  <pault@gcc.gnu.org>
 
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