[Bug fortran/48112] New: generic interface to external function in module

["mhp77 at gmx dot at" <gcc-bugzilla at gcc dot gnu dot org>]

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

           Summary: generic interface to external function in module
           Product: gcc
           Version: 4.6.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: mhp77@gmx.at


Created attachment 23650
  --> http://gcc.gnu.org/bugzilla/attachment.cgi?id=23650
test case

Compiling the Fortran module

module module_m
  interface test
     function test1( )  result( test )
       integer ::  test
     end function test1
  end interface test
end module module_m

with gfortran-4.6.0 leads to an internal compiler error. The error occurs
because the name of the result variable is equal to the generic name. If the
same interface is in a Fortran program no error occurs.

$ gfortran-4.6 -v -c module_m.f90

Using built-in specs.

COLLECT_GCC=gfortran-4.6

COLLECT_LTO_WRAPPER=/usr/lib/gcc/x86_64-linux-gnu/4.6.0/lto-wrapper

Target: x86_64-linux-gnu

Configured with: ../src/configure -v --with-pkgversion='Debian 4.6-20110227-1'
--with-bugurl=file:///usr/share/doc/gcc-4.6/README.Bugs
--enable-languages=c,c++,fortran,objc,obj-c++,go --prefix=/usr
--program-suffix=-4.6 --enable-shared --enable-multiarch
--enable-linker-build-id --with-system-zlib --libexecdir=/usr/lib
--without-included-gettext --enable-threads=posix
--with-gxx-include-dir=/usr/include/c++/4.6 --libdir=/usr/lib --enable-nls
--enable-clocale=gnu --enable-libstdcxx-debug --enable-libstdcxx-time=yes
--enable-plugin --enable-gold --enable-ld=default --with-plugin-ld=ld.gold
--enable-objc-gc --with-arch-32=i586 --with-tune=generic
--enable-checking=release --build=x86_64-linux-gnu --host=x86_64-linux-gnu
--target=x86_64-linux-gnu

Thread model: posix

gcc version 4.6.0 20110227 (experimental) [trunk revision 170543] (Debian
4.6-20110227-1)

COLLECT_GCC_OPTIONS='-v' '-c' '-mtune=generic' '-march=x86-64'

/usr/lib/gcc/x86_64-linux-gnu/4.6.0/f951 module_m.f90 -quiet -dumpbase
module_m.f90 -mtune=generic -march=x86-64 -auxbase module_m -version
-fintrinsic-modules-path /usr/lib/gcc/x86_64-linux-gnu/4.6.0/finclude -o
/tmp/ccrmvWWY.s

GNU Fortran (Debian 4.6-20110227-1) version 4.6.0 20110227 (experimental)
[trunk revision 170543] (x86_64-linux-gnu)
compiled by GNU C version 4.6.0 20110227 (experimental) [trunk revision
170543], GMP version 4.3.2, MPFR version 3.0.0-p8, MPC version 0.9

GGC heuristics: --param ggc-min-expand=100 --param ggc-min-heapsize=131072

GNU Fortran (Debian 4.6-20110227-1) version 4.6.0 20110227 (experimental)
[trunk revision 170543] (x86_64-linux-gnu)
compiled by GNU C version 4.6.0 20110227 (experimental) [trunk revision
170543], GMP version 4.3.2, MPFR version 3.0.0-p8, MPC version 0.9

GGC heuristics: --param ggc-min-expand=100 --param ggc-min-heapsize=131072

module_m.f90:7.19:

end module module_m
                   1
Internal Error at (1):
f951: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
See <file:///usr/share/doc/gcc-4.6/README.Bugs> for instructions.