diff options
| author | foreese <foreese@138bc75d-0d04-0410-961f-82ee72b054a4> | 2018-07-16 19:10:39 +0000 |
|---|---|---|
| committer | foreese <foreese@138bc75d-0d04-0410-961f-82ee72b054a4> | 2018-07-16 19:10:39 +0000 |
| commit | 1fed49d5255e5358b792fb5d9e9b9058aa817f3a (patch) | |
| tree | 265b169dbcb19bc5db42e526f28739fdeb158ab4 /gcc/testsuite/gfortran.dg/dec_structure_23.f90 | |
| parent | 65f9a1b8c635f3efba45240ff7d279631a10ff53 (diff) | |
2018-07-16 Fritz Reese <fritzoreese@gmail.com>
gcc/testsuite/ChangeLog:
PR fortran/83184
Backport from trunk.
* gfortran.dg/assumed_rank_14.f90: New testcase.
* gfortran.dg/assumed_rank_15.f90: New testcase.
* gfortran.dg/dec_structure_8.f90: Update error messages.
* gfortran.dg/dec_structure_23.f90: Update error messages.
gcc/fortran/ChangeLog:
PR fortran/83184
Backport from trunk.
* decl.c (match_old_style_init): Initialize locus of variable expr when
creating a data variable.
(match_clist_expr): Verify array is explicit shape/size before
attempting to allocate constant array constructor.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gcc-8-branch@262747 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/dec_structure_23.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/dec_structure_23.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.dg/dec_structure_23.f90 b/gcc/testsuite/gfortran.dg/dec_structure_23.f90 index 78db344e0fc8..d79ecc7ff213 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 "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" } + 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" } end structure end |