http://gcc.gnu.org/bugzilla/show_bug.cgi?id=57174
Bug #: 57174
Summary: RTE triggered by type component allocation
Classification: Unclassified
Product: gcc
Version: fortran-dev
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: libfortran
AssignedTo: unassig...@gcc.gnu.org
ReportedBy: ba...@lrz.de
The following code, when compiled with the fortran-dev from 20130430, produces
the error
At line 18 of file PMRgf.f90
Fortran runtime error: Attempting to allocate already allocated variable
'__tmp_type_t2'
at execution time.
module mod_noninter_array_01
implicit none
type :: t1
integer, allocatable :: i(:)
end type t1
type, extends(t1) :: t2
real, pointer :: p
end type
end module mod_noninter_array_01
program noninter_array_01
use mod_noninter_array_01
implicit none
class(t1), allocatable :: n_t1(:,:)
allocate(t2 :: n_t1(2,2))
select type(n_t1)
type is (t2)
allocate(n_t1(1,2)%i(2), source=[2,3])
end select
end program noninter_array_01
