diff options
| -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(:)[:] |