ICE on valid code, duplicate bug or new?

[Carsten Lemmen]

Invalid code, blah needs to be integer-valued

SUBROUTINE GW_S_PARAMS
   IMPLICIT NONE

   REAL(KIND(1.0)), DIMENSION(6) :: ell
   REAL(KIND(1.0)), DIMENSION(3) :: ell_tri
   INTEGER, DIMENSION(3) :: blah


   ell_tri = ell(blah)

END SUBROUTINE GW_S_PARAMS

Cheers,
CL

Neilen Marais wrote:
> Hi!
> 
> I'm getting the following ICE:
> 
> $ gfortran -c -v -g +test.f90
> Using built-in specs.
> Target: i386-linux
> Configured with: ../gcc/configure --prefix=/tmp/gfortran-20050608/irun
> --enable-languages=c,f95 --host=i386-linux
> Thread model: posix
> gcc version 4.1.0 20050608 (experimental)
>  /usr/local/src/gfortran.2005.06.08/irun/bin/../libexec/gcc/i386-linux/4.1.0/f951 +test.f90 -quiet -dumpbase +test.f90 -auxbase +test -g -version -o /tmp/cckLsUNV.s
> GNU F95 version 4.1.0 20050608 (experimental) (i386-linux)
>         compiled by GNU C version 3.3.5 (Debian 1:3.3.5-13).
> GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
> +test.f90: In function ‘gw_s_params’:
> +test.f90:1: internal compiler error: in fold_convert, at
> fold-const.c:1948
> Please submit a full bug report,
> with preprocessed source if appropriate.
> See <URL:http://gcc.gnu.org/bugs.html> for instructions.
> 
> brick@wanbalans:~/akademie/FEMFEKO/src
> $ cat +test.f90
> SUBROUTINE GW_S_PARAMS
>   IMPLICIT NONE
> 
>   REAL(KIND(1.0)), DIMENSION(6) :: ell
>   REAL(KIND(1.0)), DIMENSION(3) :: ell_tri, blah
> 
> 
>   ell_tri = ell(blah)
> 
> END SUBROUTINE GW_S_PARAMS
> 
> Anything strange with this code, or should I file a bug report? 
> 
> Thanks
> Neilen
> 

--