[Bug fortran/54189] New: ICE (segfault) with invalid assumed-size dummy

[burnus at gcc dot gnu.org]

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

             Bug #: 54189
           Summary: ICE (segfault) with invalid assumed-size dummy
    Classification: Unclassified
           Product: gcc
           Version: 4.8.0
            Status: UNCONFIRMED
          Keywords: ice-on-invalid-code
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassig...@gcc.gnu.org
        ReportedBy: bur...@gcc.gnu.org


Cf. http://gcc.gnu.org/ml/fortran/2012-08/msg00034.html

The following program ICEs in check_assumed_size_reference's
1386      if ((e->ref->u.ar.end[e->ref->u.ar.as->rank - 1] == NULL)
as e->ref == NULL.


implicit none
contains
function g()
  integer :: g(*)
end function g


subroutine test()
  procedure(g), pointer :: x
  x => g
end subroutine test
end