From Bugzilla Helper:
User-Agent: Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.8) Gecko/20051129 Fedora/1.5-1 Firefox/1.5

Description of problem:
Following f90 code triggers an ICE
$ gfortran  bug.f90
:bug.f90: In function âsâ:
bug.f90:20: internal compiler error: in fold_convert, at fold-const.c:2038


Version-Release number of selected component (if applicable):
gcc-gfortran-4.1.0-0.6

How reproducible:
Always

Steps to Reproduce:
MODULE ma
   TYPE rd
      REAL   :: ext
   END TYPE rd
   TYPE rmd 
      TYPE(rd), POINTER :: oned(:)
      REAL,     POINTER :: twod(:,:)  
   END TYPE rmd
END MODULE ma

MODULE b
   USE ma
   TYPE(rd), POINTER, SAVE :: lcopy(:) 
CONTAINS
   SUBROUTINE s(arg)
      USE ma
      IMPLICIT NONE
      TYPE(rmd),  INTENT(INOUT) :: arg
      INTEGER :: dim
      dim = SIZE(arg%twod,2)
      lcopy = arg%oned(:)
   END SUBROUTINE s
END MODULE b


Additional info: