4 ! The code freeing allocatable components used to be put after the code
5 ! freeing the containing entity.
7 ! Original test case by Marco Restelli <mrestelli@gmail.com>
8 ! Reduced by Daniel Franke <franke.daniel@gmail.com>
9 ! and Janus Weil <janus@gcc.gnu.org>
13 integer, allocatable
:: d(:)
15 type(t
), allocatable
:: a(:)
17 ! Big enough to make it fail