[Bug fortran/31879] ICE with function having array of character variables argument

[vivekrao4 at yahoo dot com]

------- Comment #1 from vivekrao4 at yahoo dot com  2007-05-09 16:41 -------
A simpler program exhibiting the same bug:

module str_mod
contains
function ccopy(yy) result(xy)
character (len=*), intent(in) :: yy(:)
character (len=1) :: xy(size(yy))
xy = yy
end function ccopy
end module str_mod
!
program xx
use str_mod, only: ccopy
implicit none
print*,ccopy("_"//["a"])
end program xx

gfortran -c -v xxgfortran_bug.f90
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 20070506 (experimental)
 c:/programs/gfortran/bin/../libexec/gcc/i386-pc-mingw32/4.3.0/f951.exe
xxgfortran_bug.f90 -quiet -dumpbase xxgfortran_bug.f90 -mtune=i386 -auxbase
xxgfortran_bug -version -fintrinsic-modules-path
c:/programs/gfortran/bin/../lib/gcc/i386-pc-mingw32/4.3.0/finclude -o
C:\DOCUME~1\vrao\LOCALS~1\Temp/ccGUWtbU.s
GNU F95 version 4.3.0 20070506 (experimental) (i386-pc-mingw32)
        compiled by GNU C version 4.3.0 20070506 (experimental).
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096

xxgfortran_bug.f90: In function 'MAIN__':
xxgfortran_bug.f90:10: internal compiler error: in gfc_conv_expr_descriptor, at
fortran/trans-array.c:4474
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.


-- 


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