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

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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b1b043c..27c8168 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,11 @@
+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

diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_result_4.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_result_4.f90
index 97e67e5..5dd67bf 100644 (file)
--- a/gcc/testsuite/gfortran.dg/proc_ptr_result_4.f90
+++ b/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