The following code (derived from allocatable_1.f90)

Type drv
 Integer::i
 Integer,allocatable::arr(:)
End type drv

  print *, fun1()

contains
  Function fun1 ()

    Type(drv)::fun1
    Fun1%i=10
  end function fun1
end

gives

allocatable_1_db.f90: In function ‘MAIN__’:
allocatable_1_db.f90:12: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.

Cheers

Dominique


-- 
           Summary: ICE with allocatable
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: dominiq at lps dot ens dot fr
 GCC build triplet: 4.2.0 20061009
GCC target triplet: x86_64-unknown-linux-gnu


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29422