------- Comment #8 from franke dot daniel at gmail dot com 2006-10-13 15:54
-------
As requested in comment #7, a testcase for equal string lengths (identical to
original PR but to_string() returns CHARACTER(len=255) instead of
CHARACTER(len=32)):
$> cat cat pr29267.f90
PROGRAM test_ice
CHARACTER(len=255), DIMENSION(1,2) :: a
a = reshape((/ "x", to_string(1.0) /), (/ 1, 2 /))
CONTAINS
CHARACTER(len=255) FUNCTION to_string(x)
REAL, INTENT(in) :: x
WRITE(to_string, FMT="(F6.3)") x
END FUNCTION
END PROGRAM
$> gfortran-4.2 -g -Wall pr29267.f90
pr29267.f90: In function 'MAIN__':
pr29267.f90:3: internal compiler error: in operand_subword_force, at
emit-rtl.c:1353
$> gfortran-4.2 -v
Using built-in specs.
Target: i686-pc-linux-gnu
Configured with: ../gcc/configure --prefix=$mylocalprefix --enable-bootstrap
--enable-threads=posix --enable-shared --with-system-zlib
--enable-languages=c,fortran --disable-nls --program-suffix=-4.2
Thread model: posix
gcc version 4.2.0 20061013 (experimental)
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29267
