re PR fortran/18918 (Eventually support Fortran 2008's coarrays [co-arrays])

2011-07-11  Tobias Burnus  <burnus@net-b.de>

        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 6e4c33e765dadf34cf62d2d213daa4f67bd8faa6..3ae096ec44f02eb0e2c6f7b49f33dd67b31a36e5 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-11  Tobias Burnus  <burnus@net-b.de>
+
+       PR fortran/18918
+       * gfortran.dg/coarray_lock_3.f90: Remove bogus dg-error.
+
 2011-07-11  Georg-Johann Lay  <avr@gjlay.de>
        
        * 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 5e4c73ffe1a2f93d3ee6e40f4472719d3fc2ba6c..b23d87ee4e7a473f2b0a0fe7f2402b73955ffdd8 100644 (file)
--- 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