[Bug fortran/15953] New: ICE with segmentation fault on valid code

[Bug fortran/15953] New: ICE with segmentation fault on valid code

[Mart dot Rentmeester at sci dot kun dot nl]

function number_of_digits(s,n) result(d)

      implicit none
      integer, intent(in)       :: n  
      character(*), intent(in)  :: s(n)
      integer                   :: d
      integer                   :: i,j   


      d = 0
      do i=1,n
          do j=20,15,-1
              if (s(i)(j:j) /= '0') exit
          enddo
          d = max(d,j-14)
      enddo

      end function number_of_digits


Configured with: ../configure --enable-languages=c,f95 
--prefix=/opt32/gcc-2004-06-09 --with-gmp=/opt32/gmp --with-gnu-as 
--with-as=/opt32/binutils/bin/as --enable-threads --disable-shared --disable-nls
Thread model: posix
gcc version 3.5.0 20040611 (experimental)
 /OPT/32/gcc-2004-06-09/libexec/gcc/hppa2.0w-hp-hpux11.11/3.5.0/f951 n1.f95 
-quiet -dumpbase n1.f95 -auxbase n1 -version -o /var/tmp//ccKaEzqh.s
GNU F95 version 3.5.0 20040611 (experimental) (hppa2.0w-hp-hpux11.11)
        compiled by GNU C version 3.5.0 20040611 (experimental).
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
n1.f95: In function `number_of_digits':
n1.f95:1: internal compiler error: Segmentation fault

-- 
           Summary: ICE with segmentation fault on valid code
           Product: gcc
           Version: 3.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: Mart dot Rentmeester at sci dot kun dot nl
                CC: gcc-bugs at gcc dot gnu dot org


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

[Bug fortran/15953] ICE with segmentation fault on valid code

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2004-06-12 12:44 -------
This is interesting but I cannot reproduce it on 20040610 and there was no change to gfortran between 
then and 20040611.

But I do get an error message though:
  In file pr15963.f:16

      end function number_of_digits
        1
Error: Expecting END PROGRAM statement at (1)
Error: Unexpected end of file in 'pr15963.f'
which is wrong.

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
            Summary|ICE with segmentation fault |ICE with segmentation fault
                   |on valid code               |on valid code


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

[Bug fortran/15953] ICE with segmentation fault on valid code

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2004-06-12 13:21 -------
Confirmed, I must have been missed copied the testcase.

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|                            |1
           Keywords|                            |ice-on-valid-code
   Last reconfirmed|0000-00-00 00:00:00         |2004-06-12 13:21:40
               date|                            |


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

[Bug fortran/15953] ICE with segmentation fault on valid code

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2004-06-12 13:22 -------
Here is the backtrace:
#0  gfc_conv_expr_val (se=0xbffebfb0, expr=0x0) at /home/gates/pinskia/src/gnu/gcc/src/gcc/
fortran/trans-expr.c:1508
#1  0x08098b09 in gfc_conv_expr_type (se=0xbffebfb0, expr=0x0, type=0x0)
    at /home/gates/pinskia/src/gnu/gcc/src/gcc/fortran/trans-expr.c:1520
#2  0x08098d3d in gfc_trans_init_string_length (cl=0x85a7f08, pblock=0xbffec028)
    at /home/gates/pinskia/src/gnu/gcc/src/gcc/fortran/trans-expr.c:152
#3  0x080a6923 in gfc_trans_g77_array (sym=0x85a94b0, body=0x0)
    at /home/gates/pinskia/src/gnu/gcc/src/gcc/fortran/trans-array.c:2953
#4  0x080a7387 in gfc_trans_dummy_array_bias (sym=0x85a94b0, tmpdesc=0x400f3f68, 
body=0x400f5078)
    at /home/gates/pinskia/src/gnu/gcc/src/gcc/fortran/trans-array.c:3018
#5  0x08091df7 in gfc_generate_function_code (ns=0x85a9078)
    at /home/gates/pinskia/src/gnu/gcc/src/gcc/fortran/trans-decl.c:1737
#6  0x0808d853 in gfc_generate_code (ns=0x85a9078) at /home/gates/pinskia/src/gnu/gcc/src/gcc/
fortran/trans.c:651
#7  0x080735a7 in gfc_parse_file () at /home/gates/pinskia/src/gnu/gcc/src/gcc/fortran/parse.c:2477
#8  0x0808a06c in gfc_be_parse_file (set_yydebug=0)
    at /home/gates/pinskia/src/gnu/gcc/src/gcc/fortran/f95-lang.c:266
#9  0x0838c4a8 in toplev_main (argc=0, argv=0xbffec304) at /home/gates/pinskia/src/gnu/gcc/src/
gcc/toplev.c:1666
#10 0x420174d9 in __libc_start_main () from /lib/i686/libc.so.6
#11 0x0804b071 in _start ()

-- 


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