From e124e65f35b41bf118766d910bc307db160f3073 Mon Sep 17 00:00:00 2001
From: Dominique d'Humieres <dominiq@lps.ens.fr>
Date: Wed, 5 Sep 2012 13:26:58 +0000
Subject: [PATCH] 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
---
gcc/testsuite/ChangeLog | 5 +++++
gcc/testsuite/gfortran.dg/coarray_poly_3.f90 | 4 ++--
2 files changed, 7 insertions(+), 2 deletions(-)
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 26a82dba39fe..4598e6695134 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 e6b19ae8937e..8edd8d3c63e9 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(:)[:]
--
GitLab