From: Tobias Burnus <burnus@net-b.de>
Date: Mon, 9 Dec 2013 23:17:06 +0000 (+0100)
Subject: re PR fortran/59428 (FAIL: gfortran.dg/proc_ptr_result_4.f90  -O  (test for excess... 
X-Git-Tag: releases/gcc-4.9.0~2176
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=787f341b9d0bc293ebeae353669c737b192d978c;p=thirdparty%2Fgcc.git

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
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b1b043c1e202..27c81682364e 100644
--- 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 97e67e558efc..5dd67bfe2bb5 100644
--- 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