U:\vrao\fortran>type xlen_trim.f90 integer :: ic(1) = len_trim((/"a"/)) print*,"ic=",ic end U:\vrao\fortran>gfortran -v Using built-in specs. Target: i386-pc-mingw32 Configured with: ../trunk/configure --prefix=/mingw --enable-languages=c,fortran --with-gmp=/home/coudert/local --disable-nls --with-ld=/mingw/bin/ld --with-as=/mingw/bin/as --disable-werror --enable-bootstrap --enable-threads --build=i386-pc-mingw32 --disable-shared --enable-libgomp Thread model: win32 gcc version 4.3.0 20070329 (experimental) U:\vrao\fortran>gfortran -W -Wall -pedantic-errors -std=f2003 -fbounds-check -Werror xlen_trim.f90 xlen_trim.f90: In function 'MAIN__': xlen_trim.f90:1: internal compiler error: in gfc_conv_array_initializer, at fortran/trans-array.c:3693 Please submit a full bug report, with preprocessed source if appropriate. See <URL:http://gcc.gnu.org/bugs.html> for instructions. Vivek Rao
This is fixed by the patch that I submitted for PR29507. Paul
Subject: Bug 31404 Author: pault Date: Sat Apr 14 15:09:57 2007 New Revision: 123815 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=123815 Log: 2007-04-14 Paul Thomas <pault@gcc.gnu.org> PR fortran/29507 PR fortran/31404 * expr.c (scalarize_intrinsic_call): New function to scalarize elemental intrinsic functions in initialization expressions. (check_init_expr): Detect elemental intrinsic functions in initalization expressions and call previous. 2007-04-14 Paul Thomas <pault@gcc.gnu.org> PR fortran/29507 PR fortran/31404 * gfortran.dg/initialization_6.f90: New test. Added: trunk/gcc/testsuite/gfortran.dg/initialization_6.f90 Modified: trunk/gcc/fortran/ChangeLog trunk/gcc/fortran/expr.c trunk/gcc/testsuite/ChangeLog
Fixed on trunk Paul