diff options
| author | Tobias Burnus <burnus@net-b.de> | 2014-11-03 21:14:48 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2014-11-03 21:14:48 +0100 |
| commit | 7ba43edaeac497e40774af340e871735c3c3b023 (patch) | |
| tree | 0ae77ae65a35c9af0c796cb9d079f1ffca3f2291 /gcc | |
| parent | 8bc991d41a1f4869b36282b55519083d9bf39490 (diff) | |
| download | gcc-7ba43edaeac497e40774af340e871735c3c3b023.zip gcc-7ba43edaeac497e40774af340e871735c3c3b023.tar.gz gcc-7ba43edaeac497e40774af340e871735c3c3b023.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/coarray_collectives_14.f90 | 38 |
2 files changed, 23 insertions, 19 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index e9ffad4..f442b09 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 f0ab932..c2f1939 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." } |