Huge object file for Fortran 90 module

[souda]

Does anybody know why the object file for a Fortran 90 module can sometimes be very large (~300 Mb)? In this case the compiler (lf95 and pgf90) exits on output error while writing the object file on disk.

Appreciate your comments,
Alex

[delie]

Hi. I had that problem a few months ago. It is a know bug (see attached response I got form Lahey support) that happens with allocatable arrays declared in a module. I found that declaring the alloc. array in a separate module solve the problem.

Eric

*** Message from Lahey Support
Eric,

Sorry that we didn't get back to you sooner.

Bug 109-92657 still exists that causes an oversized obj file:
module test
integer,parameter :: moldim=200
type t_frag
integer :: no, dno, atm(moldim), aij( (moldim+1)*moldim/2 )
end type t_frag
type t_child
integer :: no,atm(15)
end type t_child
type( t_frag ) :: frag(600)
! With the following line included, the obj file is 48 mb.
! If it is commented out, the obj file size is 1 kb.
type( t_child ),allocatable :: child(:)
end module test
use test
end

David

[souda]

Thanks a lot. I'll rearrange allocatable arrays, maybe it'll solve the problem...
Alex