From 48e76d2f70c028a5d84027e79f7fe386278dc15e Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Thu, 2 Jan 2020 15:40:51 +0000 Subject: =?UTF-8?q?Fortran]=20PR68020=20=E2=80=93=20Fix=20implied-shape=20?= =?UTF-8?q?handling=20for=20rank=20>=202?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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 --- gcc/fortran/array.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc/fortran/array.c') 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"); -- cgit v1.1