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

gcc/testsuite/ChangeLog

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

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