[Bug fortran/47616] New: ICE with allocate(a,source=(/1/))

[tkoenig at gcc dot gnu.org]

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

           Summary: ICE with allocate(a,source=(/1/))
           Product: gcc
           Version: 4.6.0
            Status: UNCONFIRMED
          Keywords: ice-on-valid-code
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: tkoenig@gcc.gnu.org


The following is an ice-on-valid (I think):

ig25@linux-fd1f:~/Krempel/Arr> cat arr-2.f90

program main
  implicit none
  integer, dimension(:), allocatable :: a
  allocate (a, source=(/ 1 /))
end program main
ig25@linux-fd1f:~/Krempel/Arr> gfortran arr-2.f90
f951: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html> for instructions.

Backtrace:

Program received signal SIGSEGV, Segmentation fault.
__gmpz_set (w=0x7fffffffd9a0, u=0x78) at set.c:42
42        usize = u->_mp_size;
(gdb) bt
#0  __gmpz_set (w=0x7fffffffd9a0, u=0x78) at set.c:42
#1  0x0000000000519b01 in conformable_arrays (e2=0x14151c0, e1=0x14508e0)
    at ../../trunk/gcc/fortran/resolve.c:6588
#2  resolve_allocate_expr (e2=0x14151c0, e1=0x14508e0) at
../../trunk/gcc/fortran/resolve.c:6738
#3  resolve_allocate_deallocate (e2=0x14151c0, e1=0x14508e0) at
../../trunk/gcc/fortran/resolve.c:7094