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.