From: Tobias Burnus Date: Mon, 11 Jul 2011 08:14:05 +0000 (+0200) Subject: re PR fortran/18918 (Eventually support Fortran 2008's coarrays [co-arrays]) X-Git-Tag: releases/gcc-4.7.0~5449 X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=790f025f3437b664c6dd02a12bdc05074345ac18;p=thirdparty%2Fgcc.git 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 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 6e4c33e765da..3ae096ec44f0 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 5e4c73ffe1a2..b23d87ee4e7a 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