diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2020-01-02 15:40:51 +0000 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2020-01-02 16:40:51 +0100 |
| commit | 48e76d2f70c028a5d84027e79f7fe386278dc15e (patch) | |
| tree | e607aa5e549fc19203835aa2f730822b3346c524 /gcc/fortran/array.c | |
| parent | 4ea5d54b3c7175de045589f994fc94ed7e59d80d (diff) | |
| download | gcc-48e76d2f70c028a5d84027e79f7fe386278dc15e.zip gcc-48e76d2f70c028a5d84027e79f7fe386278dc15e.tar.gz gcc-48e76d2f70c028a5d84027e79f7fe386278dc15e.tar.bz2 | |
Fortran] PR68020 – Fix implied-shape handling for rank > 2
PR fortran/68020
* array.c (gfc_match_array_spec): Fix implied-type matching
for rank > 2.
PR fortran/68020
* gfortran.dg/implied_shape_4.f90: New.
* gfortran.dg/implied_shape_5.f90: New.
From-SVN: r279835
Diffstat (limited to 'gcc/fortran/array.c')
| -rw-r--r-- | gcc/fortran/array.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/array.c b/gcc/fortran/array.c index c273fd1..e5b4ad7 100644 --- a/gcc/fortran/array.c +++ b/gcc/fortran/array.c @@ -599,7 +599,7 @@ gfc_match_array_spec (gfc_array_spec **asp, bool match_dim, bool match_codim) goto cleanup; case AS_IMPLIED_SHAPE: - if (current_type != AS_ASSUMED_SHAPE) + if (current_type != AS_ASSUMED_SIZE) { gfc_error ("Bad array specification for implied-shape" " array at %C"); |