From c95e85637dde93c38909f5d2895ec2dc84954522 Mon Sep 17 00:00:00 2001 From: Dominique d'Humieres Date: Tue, 30 Sep 2014 12:55:20 +0200 Subject: [PATCH] coarray_collectives_9.f90: Fix some dg-error. 2014-30-09 Dominique d'Humieres * gfortran.dg/coarray_collectives_9.f90: Fix some dg-error. From-SVN: r215715 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/gfortran.dg/coarray_collectives_9.f90 | 12 ++++++------ 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 8e51806c281..572e44b0993 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2014-30-09 Dominique d'Humieres + + * gfortran.dg/coarray_collectives_9.f90: Fix some dg-error. + 2014-09-30 Jakub Jelinek PR inline-asm/63282 diff --git a/gcc/testsuite/gfortran.dg/coarray_collectives_9.f90 b/gcc/testsuite/gfortran.dg/coarray_collectives_9.f90 index 90c09c50ad7..1921bf771f5 100644 --- a/gcc/testsuite/gfortran.dg/coarray_collectives_9.f90 +++ b/gcc/testsuite/gfortran.dg/coarray_collectives_9.f90 @@ -1,5 +1,5 @@ ! { dg-do compile } -! { dg-options "-fcoarray=single" } +! { dg-options "-fcoarray=single -fmax-errors=40" } ! ! ! CO_BROADCAST/CO_REDUCE @@ -29,7 +29,7 @@ program test call co_reduce("abc") ! { dg-error "Missing actual argument 'operator' in call to 'co_reduce'" } call co_broadcast(1, source_image=1) ! { dg-error "'a' argument of 'co_broadcast' intrinsic at .1. must be a variable" } call co_reduce(a=1, operator=red_f) ! { dg-error "'a' argument of 'co_reduce' intrinsic at .1. must be a variable" } - call co_reduce(a=val, operator=red_f2) ! { dg-error "OPERATOR argument at (1) must be a PURE function" } + call co_reduce(a=val, operator=red_f2) ! { dg-error "OPERATOR argument at \\(1\\) must be a PURE function" } call co_broadcast(val, source_image=[1,2]) ! { dg-error "must be a scalar" } call co_broadcast(val, source_image=1.0) ! { dg-error "must be INTEGER" } @@ -49,14 +49,14 @@ program test call co_reduce(val, red_f, stat=[1,2]) ! { dg-error "must be a scalar" } call co_reduce(val, red_f, stat=1.0) ! { dg-error "must be INTEGER" } call co_reduce(val, red_f, stat=1) ! { dg-error "must be a variable" } - call co_reduce(val, red_f, stat=i, result_image=1) ! OK - call co_reduce(val, red_f, stat=i, errmsg=errmsg, result_image=1) ! OK + call co_reduce(val, red_f, stat=i, result_image=1) ! { dg-error "CO_REDUCE at \\(1\\) is not yet implemented" } + call co_reduce(val, red_f, stat=i, errmsg=errmsg, result_image=1) ! { dg-error "CO_REDUCE at \\(1\\) is not yet implemented" } call co_reduce(val, red_f, stat=i, errmsg=[errmsg], result_image=1) ! { dg-error "must be a scalar" } call co_reduce(val, red_f, stat=i, errmsg=5, result_image=1) ! { dg-error "must be CHARACTER" } call co_reduce(val, red_f, errmsg="abc") ! { dg-error "must be a variable" } call co_reduce(val, red_f, stat=i8) ! { dg-error "The stat= argument at .1. must be a kind=4 integer variable" } call co_reduce(val, red_f, errmsg=msg4) ! { dg-error "The errmsg= argument at .1. must be a default-kind character variable" } - call co_broadcasr(vec(idx), 1) ! { dg-error "Argument 'A' with INTENT\\(INOUT\\) at .1. of the intrinsic subroutine co_sum shall not have a vector subscript" } - call co_reduce(vec([1,3,2]), red_f) ! { dg-error "Argument 'A' with INTENT\\(INOUT\\) at .1. of the intrinsic subroutine co_min shall not have a vector subscript" } + call co_broadcast(vec(idx), 1) ! { dg-error "Argument 'A' with INTENT\\(INOUT\\) at .1. of the intrinsic subroutine co_broadcast shall not have a vector subscript" } + call co_reduce(vec([1,3,2]), red_f) ! { dg-error "Argument 'A' with INTENT\\(INOUT\\) at .1. of the intrinsic subroutine co_reduce shall not have a vector subscript" } end program test -- 2.30.2