re PR fortran/59428 (FAIL: gfortran.dg/proc_ptr_result_4.f90 -O (test for…

re PR fortran/59428 (FAIL: gfortran.dg/proc_ptr_result_4.f90  -O  (test for excess errors) after r205791)

2013-12-10  Tobias Burnus  <burnus@net-b.de>

        PR fortran/59428
        PR fortran/58099
        PR fortran/58676
        PR fortran/41724
        * gfortran.dg/proc_ptr_result_4.f90: Fix proc-ptr interface.

From-SVN: r205838

gcc/testsuite/ChangeLog

+2013-12-10  Tobias Burnus  <burnus@net-b.de>
+
+	PR fortran/59428
+	PR fortran/58099
+	PR fortran/58676
+	PR fortran/41724
+	* gfortran.dg/proc_ptr_result_4.f90: Fix proc-ptr interface.
+
 2013-12-09  Paolo Carlini  <paolo.carlini@oracle.com>
 
 	PR c++/59435

gcc/testsuite/gfortran.dg/proc_ptr_result_4.f90

@@ -8,7 +8,13 @@ contains
 
   function f()
     intrinsic :: sin
-    procedure(sin), pointer :: f
+    abstract interface
+      pure real function sin_interf(x)
+        real, intent(in) :: x
+      end function sin_interf
+    end interface
+    ! We cannot use "sin" directly as it is ELEMENTAL
+    procedure(sin_interf), pointer :: f
     f => sin
   end function f