From 790f025f3437b664c6dd02a12bdc05074345ac18 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Mon, 11 Jul 2011 10:14:05 +0200 Subject: [PATCH] re PR fortran/18918 (Eventually support Fortran 2008's coarrays [co-arrays]) 2011-07-11 Tobias Burnus PR fortran/18918 * gfortran.dg/coarray_lock_3.f90: Remove bogus dg-error. From-SVN: r176137 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/coarray_lock_3.f90 | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 6e4c33e765d..3ae096ec44f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2011-07-11 Tobias Burnus + + PR fortran/18918 + * gfortran.dg/coarray_lock_3.f90: Remove bogus dg-error. + 2011-07-11 Georg-Johann Lay * lib/target-supports.exp (check_effective_target_scheduling): diff --git a/gcc/testsuite/gfortran.dg/coarray_lock_3.f90 b/gcc/testsuite/gfortran.dg/coarray_lock_3.f90 index 5e4c73ffe1a..b23d87ee4e7 100644 --- a/gcc/testsuite/gfortran.dg/coarray_lock_3.f90 +++ b/gcc/testsuite/gfortran.dg/coarray_lock_3.f90 @@ -69,7 +69,7 @@ subroutine lock_test2 lock(lock) lock(lock2(1)) lock(lock2) ! { dg-error "must be a scalar coarray of type LOCK_TYPE" } - lock(lock[1]) ! { dg-error "must be a scalar coarray of type LOCK_TYPE" } + lock(lock[1]) ! OK end subroutine lock_test2 -- 2.30.2