[Bug fortran/55827] ICE with multiple fortran modules and character lenght determined by an interfaced pure function

["bugs at stellardeath dot org" <gcc-bugzilla at gcc dot gnu dot org>]

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

--- Comment #1 from Lorenz HÃdepohl <bugs at stellardeath dot org> 2012-12-28 21:12:28 UTC ---
Forgot the actual compiler output, this is of a self-compiled gcc (checked out
2012/12/22), see below for an 4.7.1:

#> gfortran -v -fimplicit-none -Wall -pedantic --std=f2003 -c ice.f90 
Using built-in specs.
COLLECT_GCC=/home/lorenz/sys/bin/gfortran
Target: x86_64-unknown-linux-gnu
Configured with: ./configure --prefix=/home/lorenz/sys
Thread model: posix
gcc version 4.8.0 20121222 (experimental) (GCC) 
COLLECT_GCC_OPTIONS='-v' '-fimplicit-none' '-Wall' '-Wpedantic' '-std=f2003'
'-c' '-mtune=generic' '-march=x86-64'
 /home/lorenz/sys/lib/gcc/x86_64-unknown-linux-gnu/4.8.0/f951 ice.f90 -quiet
-dumpbase ice.f90 -mtune=generic -march=x86-64 -auxbase ice -Wall -Wpedantic
-std=f2003 -version -fimplicit-none -fintrinsic-modules-path
/home/lorenz/sys/lib64/gcc/x86_64-unknown-linux-gnu/4.8.0/finclude -o
/tmp/ccPNKtBE.s
GNU Fortran (GCC) version 4.8.0 20121222 (experimental)
(x86_64-unknown-linux-gnu)
        compiled by GNU C version 4.8.0 20121222 (experimental), GMP version
5.0.5, MPFR version 3.1.0-p1, MPC version 0.8.2
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
GNU Fortran (GCC) version 4.8.0 20121222 (experimental)
(x86_64-unknown-linux-gnu)
        compiled by GNU C version 4.8.0 20121222 (experimental), GMP version
5.0.5, MPFR version 3.1.0-p1, MPC version 0.8.2
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
ice.f90:11.42:

  function tostring(handle) result(string)
                                          1
Warning: Unused variable 'string' declared at (1)
ice.f90:11.42:

  function tostring(handle) result(string)
                                          1
Warning: Return value 'string' of function 'tostring' declared at (1) not set
ice.f90: In function âdies_hereâ:
ice.f90:23:0: internal compiler error: Segmentation fault
     write(*,*) tostring(handle)
 ^
0x95f94f crash_signal
        ../.././gcc/toplev.c:334
0x51a7b1 gfc_fix_class_refs(gfc_expr*)
        ../.././gcc/fortran/class.c:168
0x5ea5bb gfc_conv_expr(gfc_se*, gfc_expr*)
        ../.././gcc/fortran/trans-expr.c:6224
0x5ebe5a gfc_apply_interface_mapping(gfc_interface_mapping*, gfc_se*,
gfc_expr*)
        ../.././gcc/fortran/trans-expr.c:3390
0x5e82f9 gfc_conv_procedure_call(gfc_se*, gfc_symbol*, gfc_actual_arglist*,
gfc_expr*, vec<tree_node*, va_gc, vl_embed>*)
        ../.././gcc/fortran/trans-expr.c:4855
0x5ea12d gfc_conv_function_expr
        ../.././gcc/fortran/trans-expr.c:5543
0x5eadfc gfc_conv_function_expr
        ../.././gcc/fortran/trans-expr.c:2194
0x5eadfc gfc_conv_expr(gfc_se*, gfc_expr*)
        ../.././gcc/fortran/trans-expr.c:6233
0x5ef01c gfc_conv_expr_reference(gfc_se*, gfc_expr*)
        ../.././gcc/fortran/trans-expr.c:6327
0x608f71 gfc_trans_transfer(gfc_code*)
        ../.././gcc/fortran/trans-io.c:2307
0x5b7e17 trans_code
        ../.././gcc/fortran/trans.c:1516
0x606c4e build_dt
        ../.././gcc/fortran/trans-io.c:1831
0x5b7e37 trans_code
        ../.././gcc/fortran/trans.c:1488
0x5de70e gfc_generate_function_code(gfc_namespace*)
        ../.././gcc/fortran/trans-decl.c:5385
0x5b85e1 gfc_generate_module_code(gfc_namespace*)
        ../.././gcc/fortran/trans.c:1646
0x577d8b translate_all_program_units
        ../.././gcc/fortran/parse.c:4452
0x577d8b gfc_parse_file()
        ../.././gcc/fortran/parse.c:4679
0x5b3815 gfc_be_parse_file
        ../.././gcc/fortran/f95-lang.c:191
Please submit a full bug report,
with preprocessed source if appropriate.
Please include the complete backtrace with any bug report.
See <http://gcc.gnu.org/bugs.html> for instructions.


Also tested with gfortran 4.7.1 that comes with openSUSE:

> gfortran -v -c ice.f90 
Using built-in specs.
COLLECT_GCC=gfortran
Target: x86_64-suse-linux
Configured with: ../configure --prefix=/usr --infodir=/usr/share/info
--mandir=/usr/share/man --libdir=/usr/lib64 --libexecdir=/usr/lib64
--enable-languages=c,c++,objc,fortran,obj-c++,java,ada
--enable-checking=release --with-gxx-include-dir=/usr/include/c++/4.7
--enable-ssp --disable-libssp --disable-libitm --disable-plugin
--with-bugurl=http://bugs.opensuse.org/ --with-pkgversion='SUSE Linux'
--disable-libgcj --disable-libmudflap --with-slibdir=/lib64 --with-system-zlib
--enable-__cxa_atexit --enable-libstdcxx-allocator=new --disable-libstdcxx-pch
--enable-version-specific-runtime-libs --enable-linker-build-id
--program-suffix=-4.7 --enable-linux-futex --without-system-libunwind
--with-arch-32=i586 --with-tune=generic --build=x86_64-suse-linux
Thread model: posix
gcc version 4.7.1 20120723 [gcc-4_7-branch revision 189773] (SUSE Linux) 
COLLECT_GCC_OPTIONS='-v' '-c' '-mtune=generic' '-march=x86-64'
 /usr/lib64/gcc/x86_64-suse-linux/4.7/f951 ice.f90 -quiet -dumpbase ice.f90
-mtune=generic -march=x86-64 -auxbase ice -version -fintrinsic-modules-path
/usr/lib64/gcc/x86_64-suse-linux/4.7/finclude -o /tmp/cccbHXIz.s
GNU Fortran (SUSE Linux) version 4.7.1 20120723 [gcc-4_7-branch revision
189773] (x86_64-suse-linux)
        compiled by GNU C version 4.7.1 20120723 [gcc-4_7-branch revision
189773], GMP version 5.0.5, MPFR version 3.1.0-p1, MPC version 0.8.2
GGC heuristics: --param ggc-min-expand=100 --param ggc-min-heapsize=131072
GNU Fortran (SUSE Linux) version 4.7.1 20120723 [gcc-4_7-branch revision
189773] (x86_64-suse-linux)
        compiled by GNU C version 4.7.1 20120723 [gcc-4_7-branch revision
189773], GMP version 5.0.5, MPFR version 3.1.0-p1, MPC version 0.8.2
GGC heuristics: --param ggc-min-expand=100 --param ggc-min-heapsize=131072
ice.f90: In function âdies_hereâ:
ice.f90:23:0: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://bugs.opensuse.org/> for instructions.