[Bug fortran/54285] New: [F03] Calling a PPC with proc-ptr result

[janus at gcc dot gnu.org]

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

             Bug #: 54285
           Summary: [F03] Calling a PPC with proc-ptr result
    Classification: Unclassified
           Product: gcc
           Version: 4.8.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: janus@gcc.gnu.org


The following (supposedly valid) test case ...


type :: t
  procedure(a), pointer, nopass :: p
end type

type(t) :: x
procedure(iabs), pointer :: pp

x%p => a

pp => x%p()  ! "Invalid character in name at (1)"

print *,pp(-3)

contains

  function a() result (b)
    procedure(iabs), pointer :: b
    b => iabs
  end function

end


triggers the error:

pp => x%p()
     1
Error: Invalid character in name at (1)