[Bug fortran/54949] New: [F03] abstract procedure pointers not rejected

[janus at gcc dot gnu.org]

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



             Bug #: 54949

           Summary: [F03] abstract procedure pointers not rejected

    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: ja...@gcc.gnu.org





Test case (inspired by

https://groups.google.com/forum/?fromgroups=#!topic/comp.lang.fortran/F_ROPgBJGpY):



program test

  implicit none

  abstract interface

    subroutine abssub

    end subroutine

  end interface

  pointer :: abssub



  abssub => sub



contains



  subroutine sub

  end subroutine



end







This currently gives an



internal compiler error: in fold_convert_loc, at fold-const.c:1979



but should be rejected, since a procedure pointer can not be ABSTRACT.