[Bug libfortran/51448] New: Compiler crash when assigning floating point values of different kinds

["francois.willot at cmm dot ensmp.fr" <gcc-bugzilla at gcc dot gnu dot org>]

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

             Bug #: 51448
           Summary: Compiler crash when assigning floating point values of
                    different kinds
    Classification: Unclassified
           Product: gcc
           Version: unknown
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: libfortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: francois.willot@cmm.ensmp.fr


$ gfortran --version
GNU Fortran (Ubuntu/Linaro 4.6.1-9ubuntu3) 4.6.1

$ cat 1.f90 
  PROGRAM MAIN
  IMPLICIT NONE
  TYPE mytype
    REAL b(2)
  END TYPE mytype
  TYPE(mytype) a
  DOUBLE PRECISION, ALLOCATABLE :: x(:)
  ALLOCATE(x(2))
  a%b=0.0E0
  x=a%b
  END

$ gfortran -O0 1.f90
1.f90: In function âMAIN__â:
1.f90:10:0: 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.

The program won't crash when "x=REAL(a%b, KIND(0.0D0))" instead of "x=a%b".

OS: Linux Mint 12, gfortran preinstalled package.