[Bug fortran/15494] New: [gfortran] ICE on valid code, array of strings

[Bug fortran/15494] New: [gfortran] ICE on valid code, array of strings

[martin at mpa-garching dot mpg dot de]

The following code causes current gfortran to crash with an ICE:

module linebufmod
implicit none
private

public linebuf, linebuf_add

type linebuf
  character(len=80), dimension(:), pointer :: data=>NULL()
  integer :: size=0
end type linebuf

contains

subroutine linebuf_add (buf, line)
  type(linebuf), intent(inout) :: buf
  character(len=*), intent(in) :: line

  character(len=80), dimension(:), pointer :: data2

data2=>NULL()

  if (.not. associated(buf%data)) allocate(buf%data(10))

  if (size(buf%data)==buf%size) then
    allocate (data2(2*size(buf%data)))
    data2(1:size(buf%data)) = buf%data
    deallocate (buf%data)
    buf%data => data2
  endif

  buf%size=buf%size+1
  buf%data(buf%size) = trim (line)
end subroutine linebuf_add

end module linebufmod


~/tmp>gfortran -v -c bug.f90
Reading specs from /afs/mpa/data/martin/ugcc/lib/gcc/i686-pc-linux-gnu/3.5.0/specs
Configured with: /scratch/gcc/configure --quiet
--prefix=/afs/mpa/data/martin/ugcc --enable-languages=c++,f95
--with-gmp=/afs/mpa/data/martin/mygmp --disable-checking
Thread model: posix
gcc version 3.5.0 20040517 (experimental)
 /afs/mpa/data/martin/ugcc/libexec/gcc/i686-pc-linux-gnu/3.5.0/f951 bug.f90
-quiet -dumpbase bug.f90 -mtune=pentiumpro -auxbase bug -version -o /tmp/cceuAkva.s
GNU F95 version 3.5.0 20040517 (experimental) (i686-pc-linux-gnu)
        compiled by GNU C version 3.5.0 20040517 (experimental).
GGC heuristics: --param ggc-min-expand=63 --param ggc-min-heapsize=63317
f951: /scratch/gcc/gcc/fortran/trans-expr.c:1590: gfc_trans_scalar_assign:
Assertion `lse->string_length != (tree) ((void *)0) && rse->string_length !=
(tree) ((void *)0)' failed.
bug.f90: In function `linebuf_add':
bug.f90:26: internal compiler error: Aborted
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.

-- 
           Summary: [gfortran] ICE on valid code, array of strings
           Product: gcc
           Version: 3.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: martin at mpa-garching dot mpg dot de
                CC: gcc-bugs at gcc dot gnu dot org,martin at mpa-garching
                    dot mpg dot de
 GCC build triplet: i686-pc-linux-gnu
  GCC host triplet: i686-pc-linux-gnu
GCC target triplet: i686-pc-linux-gnu


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

[Bug fortran/15494] [gfortran] ICE on valid code, array of strings

[martin at mpa-garching dot mpg dot de]

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |ice-on-valid-code
      Known to fail|                            |3.5.0


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

[Bug fortran/15494] [gfortran] ICE on valid code, array of strings

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2004-05-17 13:36 -------
Confirmed, I think this is a dup of bug 15196.

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
  BugsThisDependsOn|                            |15196
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|                            |1
   Last reconfirmed|0000-00-00 00:00:00         |2004-05-17 13:36:59
               date|                            |


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

[Bug fortran/15494] ICE on valid code, array of strings

[reichelt at gcc dot gnu dot org]

-- 
Bug 15494 depends on bug 15196, which changed state.

Bug 15196 Summary: ICE: gfc_trans_scalar_assign: Assertion `lse->string_length != NULL_TREE'
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=15196

           What    |Old Value                   |New Value
----------------------------------------------------------------------------
             Status|NEW                         |RESOLVED
         Resolution|                            |FIXED

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

[Bug fortran/15494] ICE on valid code, array of strings

[reichelt at gcc dot gnu dot org]

------- Additional Comments From reichelt at gcc dot gnu dot org  2004-08-26 09:12 -------
Although PR 15196 got fixed, this one still crashes.
But I now get a segfault.

-- 


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

[Bug fortran/15494] ICE on valid code, array of strings

[reichelt at gcc dot gnu dot org]

------- Additional Comments From reichelt at gcc dot gnu dot org  2004-08-26 09:25 -------
Here's a reduced testcase:

=============================================================
program FOO
  type T
    character(len=80), dimension(:), pointer :: P=>NULL()
  end type T
  type(T) :: X

  A=size(X%P)
end program FOO
=============================================================


-- 


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

[Bug fortran/15494] ICE on valid code, array of strings

[tobi at gcc dot gnu dot org]

------- Additional Comments From tobi at gcc dot gnu dot org  2004-09-27 14:40 -------


*** This bug has been marked as a duplicate of 17612 ***

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |RESOLVED
      Known to fail|4.0                         |
         Resolution|                            |DUPLICATE


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