[Bug fortran/39695] [F03] ProcPtr function results: wrong name in error message

[janus at gcc dot gnu.org]

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

--- Comment #3 from janus at gcc dot gnu.org ---
Another example: proc_ptr_result_4.f90 in the testsuite yields the following
error since 4.9 (see also PR59428):

    procedure(sin), pointer :: f
                                1
Error: Procedure pointer 'ppr@' at (1) shall not be elemental



  function f()
    intrinsic :: sin
    procedure(sin), pointer :: f
    f => sin
  end function f