procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
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
This commit is contained in:
Paul Thomas 2016-08-31 07:50:44 +00:00
parent e73d3ca6d1
commit 1a576b1332
2 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gcc/testsuite/ChangeLog
View file

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

4
gcc/testsuite/gfortran.dg/dtio_5.f90
View file

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