ICE in gfc_typenode_for_spec, at fortran/trans-types.c:1066

[Paul Kapinos <kapinos at rz dot rwth-aachen dot de>]

Dear GCC/gfortran developer, please consider the following.

Compiling the attached example code, got the error:
-------------------------------------------------
plainf95_test_klammer.1.f90: In function 'myroutine':
plainf95_test_klammer.1.f90:3:0: internal compiler error: in 
gfc_typenode_for_spec, at fortran/trans-types.c:1066
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html> for instructions.
-------------------------------------------------

Reproducing:

$ gfortran -c plainf95_test_klammer.1.f90



Version:
-------------------------------------------------
$ gfortran -v
Using built-in specs.
COLLECT_GCC=gfortran
COLLECT_LTO_WRAPPER=/rwthfs/rz/SW/gcc/SCIENTIFIC-6.0/4.7.2/bin/../libexec/gcc/x86_64-unknown-linux-gnu/4.7.2/lto-wrapper
Target: x86_64-unknown-linux-gnu
Configured with: ../../SOURCES/gcc-4.7.2/configure 
--prefix=/usr/local_rwth/sw/gcc/4.7.2 
--enable-languages=c,c++,objc,obj-c++,fortran --enable-lto 
--with-gmp=/w0/tmp/pk224850/GCC472/build/destdir/usr/local_rwth/sw/gcc/4.7.2 
--with-mpfr=/w0/tmp/pk224850/GCC472/build/destdir/usr/local_rwth/sw/gcc/4.7.2 
--with-mpc=/w0/tmp/pk224850/GCC472/build/destdir/usr/local_rwth/sw/gcc/4.7.2 
--with-ppl=/w0/tmp/pk224850/GCC472/build/destdir/usr/local_rwth/sw/gcc/4.7.2 
--with-cloog=/w0/tmp/pk224850/GCC472/build/destdir/usr/local_rwth/sw/gcc/4.7.2 
LDFLAGS='-Wl,-rpath,/usr/local_rwth/sw/gcc/4.7.2/lib64 
-Wl,-rpath,/usr/local_rwth/sw/gcc/4.7.2/lib'
Thread model: posix
gcc version 4.7.2 (GCC)
-------------------------------------------------




System:
Linux HOSTNAME 2.6.32-279.5.1.el6.x86_64 #1 SMP Tue Aug 14 16:11:42 CDT 2012 
x86_64 x86_64 x86_64 GNU/Linux




--
Dipl.-Inform. Paul Kapinos   -   High Performance Computing,
RWTH Aachen University, Center for Computing and Communication
Seffenter Weg 23,  D 52074  Aachen (Germany)
Tel: +49 241/80-24915

MODULE mymodule
  CONTAINS
    SUBROUTINE myroutine()
        IMPLICIT NONE
        INTRINSIC :: real
        INTEGER(4) :: s_n
        REAL(4) :: s_x
        REAL(4) :: s_x2
        REAL(4) :: s_e
        REAL(4) :: matrix1(1:3, 1:4)
          matrix1(1, 1:4) = (/ real(a = s_n), s_x, s_x2, s_e /)
    END SUBROUTINE myroutine
END MODULE mymodule

Attachment: smime.p7s
Description: S/MIME Cryptographic Signature