[Bug fortran/59428] [4.9 Regression] FAIL: gfortran.dg/proc_ptr_result_4.f90 -O (test for excess errors) after r205791

[janus at gcc dot gnu.org]

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

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |ASSIGNED
   Last reconfirmed|                            |2013-12-09
                 CC|                            |janus at gcc dot gnu.org
           Assignee|unassigned at gcc dot gnu.org      |janus at gcc dot gnu.org
     Ever confirmed|0                           |1

--- Comment #1 from janus at gcc dot gnu.org ---
Apparently this was forgotten by Tobias in his commit. The test case as such is
invalid.

I will commit the following as obvious to fix it:


Index: proc_ptr_result_4.f90
===================================================================
--- proc_ptr_result_4.f90    (revision 205803)
+++ proc_ptr_result_4.f90    (working copy)
@@ -8,9 +8,13 @@

   function f()
     intrinsic :: sin
-    procedure(sin), pointer :: f
+    abstract interface
+      pure real function ifc(x)
+    real, intent(in) :: x
+      end function
+    end interface
+    procedure(ifc), pointer :: f
     f => sin
   end function f

 end
-