Reduced from a failure of alloc_comp_constructor.f90
with -fdefault-integer-8 on i686-pc-linux-gnu:
$ cat alloc_1.f90
Program test_constructor
implicit none
type :: thytype
integer(4) :: a(2,2)
end type thytype
type :: mytype
integer(4), allocatable :: a(:, :)
type(thytype), allocatable :: q(:)
end type mytype
type (mytype) :: x
integer, allocatable :: yy(:,:)
type (thytype), allocatable :: bar(:)
! Check that unallocated allocatables work
x = mytype(yy, bar)
if (allocated(x%a) .or. allocated(x%q)) call abort()
end program test_constructor
$ gfortran alloc_1.f90
$ ./a.out
$ gfortran -fdefault-integer-8 alloc_1.f90
$ ./a.out
Fortran runtime error: Attempt to allocate a negative amount of memory.
--
Summary: alloc_comp_constructor.f90 fails with -fdefault-integer-
8
Product: gcc
Version: 4.3.0
Status: UNCONFIRMED
Keywords: wrong-code
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: tkoenig at gcc dot gnu dot org
OtherBugsDependingO 32770
nThis:
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34143
