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

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

[gruel at astro dot ufl dot edu]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 1789 bytes --]

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

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

[toon at moene dot indiv dot nluug dot nl]

------- Additional Comments From toon at moene dot indiv dot nluug dot nl  2004-09-17 19:16 -------
You don't indicate what system this bug occurs on.  If it is an Intel system,
would you please try the Intel GNU/Linux binary of gfortran distributed by Bud
Davis on http://www.gfortran.org to see if this bug is still present in a more
recent version of gfortran ?

Thanks in advance.

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |WAITING


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

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

[tobi at gcc dot gnu dot org]

------- Additional Comments From tobi at gcc dot gnu dot org  2004-09-18 13:37 -------
I tried with today's sources, and I can't confirm this bug. I'm not closing this
PR as there's still a slight chance that there's an actual compiler bug lurking.
This would have to depend on the exact contents of module nrtype, which is not
included in the testcase. I used the following:
module nrtype
integer, parameter :: i4b = 4
integer, parameter :: sp = 4
end

Nicolas, could you please either try if the bug still appears with a recent
build, as Toon suggested, or create a self-contained testcase? Thanks.

-- 


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

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

[gruel at astro dot ufl dot edu]

------- Additional Comments From gruel at astro dot ufl dot edu  2004-09-20 15:27 -------
I'm trying the new binary version like indicated in the comment 1. I don't have
anymore the internal error thanks :) (I'm using amd processor)

I have another problem in the linkage with x11 and png but perhaps it's due to
the static link or due to some change in gcc. Must I have to report the problem
and where?

(this is the error message)

/home/gruel/temp_gfortran/irun/bin/gfortran -static -s
-L/astro/homes/gruel/usr/local/lib -L/usr/X11R6/lib -o trace.out f2kcli.o
lec_fich.o nrtype.o main.o -lpgplot -lpng -lg2c -lX11
/usr/X11R6/lib/libX11.a(x11trans.o)(.text+0x995): In function
`_X11TransSocketINETConnect':
: warning: Using 'gethostbyname' in statically linked applications requires at
runtime the shared libraries from the glibc version used for linking
/usr/X11R6/lib/libX11.a(x11trans.o)(.text+0x76a): In function
`_X11TransSocketINETConnect':
: warning: Using 'getservbyname' in statically linked applications requires at
runtime the shared libraries from the glibc version used for linking
/usr/bin/../lib/libpng.a(png.o)(.text+0x78a): In function `png_reset_crc':
: undefined reference to `crc32'
/usr/bin/../lib/libpng.a(png.o)(.text+0x7e1): In function `png_calculate_crc':
: undefined reference to `crc32'
/usr/bin/../lib/libpng.a(png.o)(.text+0xc2c): In function `png_reset_zstream':
: undefined reference to `inflateReset'
/usr/bin/../lib/libpng.a(pngwrite.o)(.text+0xf6d): In function `png_write_flush':
: undefined reference to `deflate'
/usr/bin/../lib/libpng.a(pngwrite.o)(.text+0x1149): In function `png_write_destroy':
: undefined reference to `deflateEnd'
/usr/bin/../lib/libpng.a(pngwutil.o)(.text+0x320): In function `png_write_IHDR':
: undefined reference to `deflateInit2_'
/usr/bin/../lib/libpng.a(pngwutil.o)(.text+0x20d0): In function
`png_write_finish_row':
: undefined reference to `deflate'
/usr/bin/../lib/libpng.a(pngwutil.o)(.text+0x2106): In function
`png_write_finish_row':
: undefined reference to `deflateReset'
/usr/bin/../lib/libpng.a(pngwutil.o)(.text+0x339d): In function
`png_write_filtered_row':
: undefined reference to `deflate'
/usr/bin/../lib/libpng.a(pngwutil.o)(.text+0x45dd): In function `png_text_compress':
: undefined reference to `deflate'
/usr/bin/../lib/libpng.a(pngwutil.o)(.text+0x4750): In function `png_text_compress':
: undefined reference to `deflate'
/usr/bin/../lib/libpng.a(pngwutil.o)(.text+0x4a38): In function
`png_write_compressed_data_out':
: undefined reference to `deflateReset'
/usr/X11R6/lib/libX11.a(XlibInt.o)(.text+0x848): In function `_XEventsQueued':
: undefined reference to `pthread_equal'
/usr/X11R6/lib/libX11.a(XlibInt.o)(.text+0xc11): In function `_XEventsQueued':
: undefined reference to `pthread_equal'
/usr/X11R6/lib/libX11.a(XlibInt.o)(.text+0xc2e): In function `_XEventsQueued':
: undefined reference to `pthread_equal'
/usr/X11R6/lib/libX11.a(XlibInt.o)(.text+0xc4d): In function `_XEventsQueued':
: undefined reference to `pthread_equal'
/usr/X11R6/lib/libX11.a(XlibInt.o)(.text+0xc68): In function `_XEventsQueued':
: undefined reference to `pthread_equal'
/usr/X11R6/lib/libX11.a(XlibInt.o)(.text+0xcf4): more undefined references to
`pthread_equal' follow
collect2: ld returned 1 exit status
make: *** [trace.out] Error 1

-- 


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

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

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2004-09-20 15:32 -------
crc32 is in libz, pthread is libpthread{s,}.

So this is fixed now.

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|WAITING                     |RESOLVED
         Resolution|                            |FIXED


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

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

[pinskia at gcc dot gnu dot org]

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
   Target Milestone|---                         |4.0.0


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