diff mbox

[Fortran] PRs 59103/58676/41724 - honour pure-/elementalness of intrinsics, add elemental checks

Message ID 52A64F7A.4010709@net-b.de
State New
Headers show

Commit Message

Tobias Burnus Dec. 9, 2013, 11:17 p.m. UTC 
Tobias Burnus wrote:
> PS: I have now committed the attached patch as Rev. 205791.

Seemingly, I missed one test case. Committed the attached patch as 
obvious, Rev. 205838.

Tobias
diff mbox

Patch

Index: gcc/testsuite/ChangeLog
===================================================================
--- gcc/testsuite/ChangeLog	(Revision 205837)
+++ gcc/testsuite/ChangeLog	(Arbeitskopie)
@@ -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
Index: gcc/testsuite/gfortran.dg/proc_ptr_result_4.f90
===================================================================
--- gcc/testsuite/gfortran.dg/proc_ptr_result_4.f90	(Revision 205837)
+++ gcc/testsuite/gfortran.dg/proc_ptr_result_4.f90	(Arbeitskopie)
@@ -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