diff options
| author | foreese <foreese@138bc75d-0d04-0410-961f-82ee72b054a4> | 2018-07-16 20:55:32 +0000 |
|---|---|---|
| committer | foreese <foreese@138bc75d-0d04-0410-961f-82ee72b054a4> | 2018-07-16 20:55:32 +0000 |
| commit | 1d242a3178e336c490c2ab9e460db7373949c869 (patch) | |
| tree | 2e84e1635197e820138585cd97921a159f344148 | |
| parent | 1fed49d5255e5358b792fb5d9e9b9058aa817f3a (diff) | |
2018-07-16 Fritz Reese <fritzoreese@gmail.com>
gcc/testsuite/ChangeLog:
PR fortran/83184
* gfortran.dg/dec_structure_23.f90: Oops, "un-fix" error messages.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gcc-8-branch@262748 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/dec_structure_23.f90 | 6 |
2 files changed, 8 insertions, 3 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index b4bbe380534e..478b65dd2e4f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,6 +1,11 @@ 2018-07-16 Fritz Reese <fritzoreese@gmail.com> PR fortran/83184 + * gfortran.dg/dec_structure_23.f90: Oops, "un-fix" error messages. + +2018-07-16 Fritz Reese <fritzoreese@gmail.com> + + PR fortran/83184 Backport from trunk. * gfortran.dg/assumed_rank_14.f90: New testcase. * gfortran.dg/assumed_rank_15.f90: New testcase. diff --git a/gcc/testsuite/gfortran.dg/dec_structure_23.f90 b/gcc/testsuite/gfortran.dg/dec_structure_23.f90 index d79ecc7ff213..78db344e0fc8 100644 --- a/gcc/testsuite/gfortran.dg/dec_structure_23.f90 +++ b/gcc/testsuite/gfortran.dg/dec_structure_23.f90 @@ -13,8 +13,8 @@ program p integer :: nn real :: rr structure /s/ - integer x(n) /1/ ! { dg-error "must have an explicit shape" } - integer xx(nn) /1/ ! { dg-error "must have an explicit shape" } - integer xxx(rr) /1.0/ ! { dg-error "must have an explicit shape" } + integer x(n) /1/ ! { dg-error "array with nonconstant bounds" } + integer xx(nn) /1/ ! { dg-error "array with nonconstant bounds" } + integer xxx(rr) /1.0/ ! { dg-error "array with nonconstant bounds" } end structure end |