From: Dominique d'Humieres <dominiq@lps.ens.fr>
Date: Wed, 5 Sep 2012 13:26:58 +0000 (+0000)
Subject: re PR fortran/54474 (gfortran.dg/coarray_poly_3.f90)
X-Git-Tag: upstream/12.2.0~74430
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=e124e65f35b41bf118766d910bc307db160f3073;p=platform%2Fupstream%2Fgcc.git

re PR fortran/54474 (gfortran.dg/coarray_poly_3.f90)

2012-09-05  Dominique Dhumieres  <dominiq@lps.ens.fr>

	PR fortran/54474
	* gfortran.dg/coarray_poly_3.f90: Adjust error messages.

From-SVN: r190977
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 26a82db..4598e66 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2012-09-05  Dominique Dhumieres  <dominiq@lps.ens.fr>
+
+	PR fortran/54474
+	* gfortran.dg/coarray_poly_3.f90: Adjust error messages.
+
 2012-09-05  Paolo Carlini  <paolo.carlini@oracle.com>
 
 	PR c++/54191
diff --git a/gcc/testsuite/gfortran.dg/coarray_poly_3.f90 b/gcc/testsuite/gfortran.dg/coarray_poly_3.f90
index e6b19ae..8edd8d3 100644
--- a/gcc/testsuite/gfortran.dg/coarray_poly_3.f90
+++ b/gcc/testsuite/gfortran.dg/coarray_poly_3.f90
@@ -3,13 +3,13 @@
 !
 
 
-subroutine cont1(x) ! { dg-error "has the CONTIGUOUS attribute but is not an array pointer or an assumed-shape array" }
+subroutine cont1(x) ! { dg-error "has the CONTIGUOUS attribute but is not an array pointer or an assumed-shape or assumed-rank array" }
   type t
   end type t
   class(t), contiguous, allocatable :: x(:)
 end
 
-subroutine cont2(x) ! { dg-error "has the CONTIGUOUS attribute but is not an array pointer or an assumed-shape array" }
+subroutine cont2(x) ! { dg-error "has the CONTIGUOUS attribute but is not an array pointer or an assumed-shape or assumed-rank array" }
   type t
   end type t
   class(t), contiguous, allocatable :: x(:)[:]