re PR fortran/45859 ([Coarray, F2008, IR] Rejects valid actuals to coarray dummies)

[thirdparty/gcc.git] / gcc / testsuite / gfortran.dg / coarray_args_2.f90

diff --git a/gcc/testsuite/gfortran.dg/coarray_args_2.f90 b/gcc/testsuite/gfortran.dg/coarray_args_2.f90
index c7dc490cc47063aa62f35a93a29e664cc9927c9d..869fa873e4dca95724b619f003146bd5e8e07698 100644 (file)
--- a/gcc/testsuite/gfortran.dg/coarray_args_2.f90
+++ b/gcc/testsuite/gfortran.dg/coarray_args_2.f90
@@ -40,8 +40,7 @@ program rank_mismatch_02
   sync all
 
   call subr(ndim, a(1:1,2)) ! OK
-  call subr(ndim, a(1,2)) ! { dg-error "must be simply contiguous" }
-                          ! See also F08/0048 and PR 45859 about the validity
+  call subr(ndim, a(1,2)) ! See also F08/0048 and PR 45859 about the validity
   if (this_image() == 1) then
      write(*, *) 'OK'
   end if