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

[janus at gcc dot gnu dot org]

------- Comment #1 from janus at gcc dot gnu dot org  2009-06-26 12:18 -------
Another test case for this can be found in PR40541:

program test
  procedure(real), pointer :: p
  p => f()  ! << Invalid f() returns a LOGICAL(1) function, but p is a REAL one
contains
 function f()
   pointer :: f
   interface
     logical(1) function f()
     end function
   end interface
   f = .true._1
 end function f
end program test


-- 


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