------- 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

Reply via email to