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

[dominiq at lps dot ens.fr]

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

--- Comment #2 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
As for 4.8.1 and trunk (r200371), only the second test in comment #0 gives the
'ppr@' name:

  real g   ! "cannot have a type"
        1
Error: Symbol 'ppr@' at (1) cannot have a type

The first test does not give any error and the third one gives (once)

    integer function h(x)   ! "is missing the pointer attribute" (twice!)
    1
Error: Procedure pointer result 'h' at (1) is missing the pointer attribute

The error for the test in comment #1 is

  p => f()  ! << Invalid f() returns a LOGICAL(1) function, but p is a REAL one
       1
Error: Interface mismatch in procedure pointer assignment at (1): Type/rank
mismatch in function result

for 4.8.1 and

  p => f()  ! << Invalid f() returns a LOGICAL(1) function, but p is a REAL one
       1
Error: Interface mismatch in procedure pointer assignment at (1): Type mismatch
in function result (REAL(4)/LOGICAL(1))

for the trunk.