From: Tobias Burnus <burnus@net-b.de>
Date: Mon, 3 Nov 2014 20:14:48 +0000 (+0100)
Subject: coarray_collectives_14.f90: Fix testcase.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=7ba43edaeac497e40774af340e871735c3c3b023;p=gcc.git

coarray_collectives_14.f90: Fix testcase.

2014-11-03  Tobias Burnus  <burnus@net-b.de>

        * gfortran.dg/coarray_collectives_14.f90: Fix testcase.

From-SVN: r217053
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e9ffad43628..f442b094c4e 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2014-11-03  Tobias Burnus  <burnus@net-b.de>
+
+	* gfortran.dg/coarray_collectives_14.f90: Fix testcase.
+
 2014-11-03  Marek Polacek  <polacek@redhat.com>
 
 	PR c/52769
diff --git a/gcc/testsuite/gfortran.dg/coarray_collectives_14.f90 b/gcc/testsuite/gfortran.dg/coarray_collectives_14.f90
index f0ab9327b29..c2f19398a58 100644
--- a/gcc/testsuite/gfortran.dg/coarray_collectives_14.f90
+++ b/gcc/testsuite/gfortran.dg/coarray_collectives_14.f90
@@ -15,24 +15,24 @@ program test
   external ext
 
   type t
-    procedure(), nopass :: ext
-    procedure(valid), nopass :: valid
-    procedure(sub), nopass :: sub
-    procedure(nonpure), nopass :: nonpure
-    procedure(arg1), nopass :: arg1
-    procedure(arg2), nopass :: arg2
-    procedure(elem), nopass :: elem
-    procedure(realo), nopass :: realo
-    procedure(int8), nopass :: int8
-    procedure(arr), nopass :: arr
-    procedure(ptr), nopass :: ptr
-    procedure(alloc), nopass :: alloc
-    procedure(opt), nopass :: opt
-    procedure(val), nopass :: val
-    procedure(async), nopass :: async
-    procedure(tgt), nopass :: tgt
-    procedure(char44), nopass :: char44
-    procedure(char34), nopass :: char34
+    procedure(), pointer, nopass :: ext
+    procedure(valid), pointer, nopass :: valid
+    procedure(sub), pointer, nopass :: sub
+    procedure(nonpure), pointer, nopass :: nonpure
+    procedure(arg1), pointer, nopass :: arg1
+    procedure(arg3), pointer, nopass :: arg3
+    procedure(elem), pointer, nopass :: elem
+    procedure(realo), pointer, nopass :: realo
+    procedure(int8), pointer, nopass :: int8
+    procedure(arr), pointer, nopass :: arr
+    procedure(ptr), pointer, nopass :: ptr
+    procedure(alloc), pointer, nopass :: alloc
+    procedure(opt), pointer, nopass :: opt
+    procedure(val), pointer, nopass :: val
+    procedure(async), pointer, nopass :: async
+    procedure(tgt), pointer, nopass :: tgt
+    procedure(char44), pointer, nopass :: char44
+    procedure(char34), pointer, nopass :: char34
   end type t
 
   type(t) :: dt
@@ -62,7 +62,7 @@ program test
   call co_reduce(caf, arg3) ! { dg-error "shall have two arguments" }
   call co_reduce(caf, dt%arg3) ! { dg-error "shall have two arguments" }
   call co_reduce(caf, elem) ! { dg-error "ELEMENTAL non-INTRINSIC procedure 'elem' is not allowed as an actual argument" }
-  call co_reduce(caf, dt%elem) ! { dg-error "ELEMENTAL non-INTRINSIC procedure 'elem' is not allowed as an actual argument" }
+  call co_reduce(caf, dt%elem) ! { FIXME: "ELEMENTAL non-INTRINSIC procedure 'elem' is not allowed as an actual argument" }
   call co_reduce(caf, realo) ! { dg-error "A argument at .1. has type INTEGER.4. but the function passed as OPERATOR at .2. returns REAL.4." }
   call co_reduce(caf, dt%realo) ! { dg-error "A argument at .1. has type INTEGER.4. but the function passed as OPERATOR at .2. returns REAL.4." }
   call co_reduce(caf, int8) ! { dg-error "A argument at .1. has type INTEGER.4. but the function passed as OPERATOR at .2. returns INTEGER.8." }