git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
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> 2016-08-31 Jerry DeLisle <jvdelisle@gcc.gnu.org>
Paul Thomas <pault@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) function pop_integer(this) result(item)
class(integer_stack) :: this class(integer_stack) :: this
class(stack), pointer :: dealloc_item
integer item integer item
if (this%empty()) then if (this%empty()) then
@ -149,8 +150,9 @@ contains
class default class default
stop 'Error #1! pop_integer encountered non-integer stack item' stop 'Error #1! pop_integer encountered non-integer stack item'
end select end select
dealloc_item => this%next
this%next => top%next this%next => top%next
deallocate(top) deallocate(dealloc_item)
class default class default
stop 'Error #2! pop_integer encountered non-integer_stack item' stop 'Error #2! pop_integer encountered non-integer_stack item'
end select end select