diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2019-03-12 17:22:28 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2019-03-12 17:22:28 +0000 |
| commit | 1eabf876d50f6b9041fb36b5229a8b6634773d3e (patch) | |
| tree | f4f86da42824b412d29887f53174c78d680211e5 /gcc/fortran/match.c | |
| parent | 6684d2dbff7b3ba4a8ef1bef3446dd9df581444f (diff) | |
| download | gcc-1eabf876d50f6b9041fb36b5229a8b6634773d3e.zip gcc-1eabf876d50f6b9041fb36b5229a8b6634773d3e.tar.gz gcc-1eabf876d50f6b9041fb36b5229a8b6634773d3e.tar.bz2 | |
re PR fortran/87673 (Errors caused by using function for character length in allocate with typespec)
2019-03-12 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/87673
* match.c (gfc_match_type_spec): Remove call to
gfc_resolve_expr for character length.
2019-03-12 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/87673
* gfortran.dg/charlen_17.f90: New test.
From-SVN: r269624
Diffstat (limited to 'gcc/fortran/match.c')
| -rw-r--r-- | gcc/fortran/match.c | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 9ff1c35..eba428f 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -2122,8 +2122,6 @@ gfc_match_type_spec (gfc_typespec *ts) ts->type = BT_CHARACTER; m = gfc_match_char_spec (ts); - if (ts->u.cl && ts->u.cl->length) - gfc_resolve_expr (ts->u.cl->length); if (m == MATCH_NO) m = MATCH_YES; |