diff options
| author | Dominique d'Humieres <dominiq@lps.ens.fr> | 2012-09-05 13:26:58 +0000 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2012-09-05 13:26:58 +0000 |
| commit | e124e65f35b41bf118766d910bc307db160f3073 (patch) | |
| tree | 533ed707b105e9f9a40690f37886cb135ac8b0c2 | |
| parent | ff99de9860acf5e27c166b39b27ae7e0343a0ad3 (diff) | |
| download | gcc-e124e65f35b41bf118766d910bc307db160f3073.zip gcc-e124e65f35b41bf118766d910bc307db160f3073.tar.gz gcc-e124e65f35b41bf118766d910bc307db160f3073.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 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(:)[:] |