diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2016-08-31 07:50:44 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2016-08-31 07:50:44 +0000 |
| commit | 1a576b133282fd16192fd76e6f10bc4bc16e033c (patch) | |
| tree | 4da9790e491fd290ab817b376465a698e9b87956 | |
| parent | e73d3ca6d1caf9c1187eeb1236dffd42f15ec043 (diff) | |
| download | gcc-1a576b133282fd16192fd76e6f10bc4bc16e033c.zip gcc-1a576b133282fd16192fd76e6f10bc4bc16e033c.tar.gz gcc-1a576b133282fd16192fd76e6f10bc4bc16e033c.tar.bz2 | |
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
| -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 |