------- Comment #1 from jv244 at cam dot ac dot uk 2010-09-07 19:28 ------- Simple testcase (gfortran -flto test.f90):
MODULE M1 INTEGER, PARAMETER :: dp=8 TYPE realspace_grid_type REAL(KIND=dp), DIMENSION ( :, :, : ), ALLOCATABLE :: r END TYPE realspace_grid_type END MODULE MODULE M2 USE m1 CONTAINS SUBROUTINE S1(x) TYPE(realspace_grid_type), POINTER :: x REAL(dp), DIMENSION(:, :, :), POINTER :: y y=>x%r y=0 END SUBROUTINE END MODULE USE M2 TYPE(realspace_grid_type), POINTER :: x ALLOCATE(x) ALLOCATE(x%r(10,10,10)) CALL S1(x) write(6,*) x%r END -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=45586