diff options
-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 |