[Bug fortran/84523] [8 Regression] Runtime crash deallocating allocatable array within derived type

["tkoenig at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84523

Thomas Koenig <tkoenig at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2018-02-23
                 CC|                            |tkoenig at gcc dot gnu.org
   Target Milestone|---                         |8.0
     Ever confirmed|0                           |1

--- Comment #1 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Doesn't crash for me, but I get a valgrind error:

 ### destruct: size(rc% spots)=          80
 ### destruct: allocated (vm) = F
 OK
ig25@linux-d6cw:~/Krempel/Alloca> valgrind ./a.out
==5413== Memcheck, a memory error detector
==5413== Copyright (C) 2002-2017, and GNU GPL'd, by Julian Seward et al.
==5413== Using Valgrind-3.13.0 and LibVEX; rerun with -h for copyright info
==5413== Command: ./a.out
==5413== 
==5413== Conditional jump or move depends on uninitialised value(s)
==5413==    at 0x50594BB: write_decimal.constprop.10 (write.c:808)
==5413==    by 0x5059873: write_integer (write.c:1351)
==5413==    by 0x505A71D: list_formatted_write_scalar (write.c:1865)
==5413==    by 0x505B3F4: _gfortrani_list_formatted_write (write.c:1943)
==5413==    by 0x400A7B: destruct.3792 (in /home/ig25/Krempel/Alloca/a.out)
==5413==    by 0x400DF2: MAIN__ (in /home/ig25/Krempel/Alloca/a.out)
==5413==    by 0x40139E: main (in /home/ig25/Krempel/Alloca/a.out)
==5413== 
 ### destruct: size(rc% spots)=          80
==5413== Use of uninitialised value of size 8
==5413==    at 0x400B40: destruct.3792 (in /home/ig25/Krempel/Alloca/a.out)
==5413==    by 0x400DF2: MAIN__ (in /home/ig25/Krempel/Alloca/a.out)
==5413==    by 0x40139E: main (in /home/ig25/Krempel/Alloca/a.out)
==5413== 
 ### destruct: allocated (vm) = F
==5413== Use of uninitialised value of size 8
==5413==    at 0x400BF8: destruct.3792 (in /home/ig25/Krempel/Alloca/a.out)
==5413==    by 0x400DF2: MAIN__ (in /home/ig25/Krempel/Alloca/a.out)
==5413==    by 0x40139E: main (in /home/ig25/Krempel/Alloca/a.out)
==5413== 
 OK