diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/dtio_5.f90 | 4 |
2 files changed, 10 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 3d385bd..c8b85fa 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 6381d4d..8642240 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 |