[Bug fortran/26550] New: ICE in gimplify_expr() on valid code

["uttamp at us dot ibm dot com" <gcc-bugzilla at gcc dot gnu dot org>]

Hello,
Following code causes an ICE in gimplify_expr().
$ cat test.f90
module my_module
   implicit none
   type point
        real :: x
   end type point
   type(point), pointer, public :: stdin => NULL()
contains
      subroutine p(w)
      character(128) :: w
      call r(stdin,(/w/))
   end subroutine
end

elm3b11:/home/pawar> /opt/gcc-nightly/trunk-20060303/bin/gfortran test.f90
test.f90: In function ?p?:
test.f90:10: internal compiler error: in gimplify_expr, at gimplify.c:5788
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.


-- 
           Summary: ICE in gimplify_expr() on valid code
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: uttamp at us dot ibm dot com
 GCC build triplet: powerpc64-linux
  GCC host triplet: powerpc64-linux
GCC target triplet: powerpc64-linux


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