[Bug fortran/17521] New: internal compiler error: in make_decl_rtl, at varasm.c:758

["gruel at astro dot ufl dot edu" <gcc-bugzilla at gcc dot gnu dot org>]

An internal compiler error comes with a compilation with gfortran (3.5 from
debian experimental).


Message from the compiler:

gfortran-3.5 -O -c lec_fich.f90
lec_fich.f90: In function `lecture_fich_col':
lec_fich.f90:0: internal compiler error: in make_decl_rtl, at varasm.c:758
Please submit a full bug report,

I join the source file:

module lec_fich
  use nrtype
  implicit none
  private
  public :: lecture_fich_col
  integer(kind=i4b),private :: n_comment

contains

  subroutine lecture_fich_col (nomfich,tab)
    use nrtype
!    implicit none

!!$! Variables d'entrées/sorties
!!$!----------------------------

    character(len=*), intent(in) :: nomfich
    real(kind=sp), dimension(:,:),intent(out) :: tab

!!$! Variables locales
!!$!------------------

    integer(kind=i4b) :: i,j,err1
    character(len=1) :: comment

    open
(unit=1,file=nomfich,form="formatted",status="old",action="read",iostat=err1,position="rewind
")
    if (err1 /= 0) then
       print*, "erreur d'ouverture du fichier ",nomfich
       stop
    end if

    do i=1,n_comment
       read (unit=1,fmt=*) comment
    end do

    do i=1,size(tab,1)
       read (unit=1,fmt=*) (tab(i,j),j=1,size(tab,2))
    end do
    close (unit=1)
    return
  end subroutine lecture_fich_col

end module lec_fich


Thanks for your work :)

-- 
           Summary: internal compiler error: in make_decl_rtl, at
                    varasm.c:758
           Product: gcc
           Version: tree-ssa
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: gruel at astro dot ufl dot edu
                CC: gcc-bugs at gcc dot gnu dot org


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