From 40a33e3f4b6173b8e2491cdecc77e94d858ba547 Mon Sep 17 00:00:00 2001 From: Mikael Morin Date: Wed, 6 Oct 2010 15:29:46 +0000 Subject: array.c (gfc_match_array_spec): Don't re-initialize cleared struct. 2010-10-06 Mikael Morin * array.c (gfc_match_array_spec): Don't re-initialize cleared struct. * symbol.c (gen_shape_param): Ditto. From-SVN: r165039 --- gcc/fortran/array.c | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) (limited to 'gcc/fortran/array.c') diff --git a/gcc/fortran/array.c b/gcc/fortran/array.c index a26be78..8c74e70 100644 --- a/gcc/fortran/array.c +++ b/gcc/fortran/array.c @@ -437,16 +437,8 @@ gfc_match_array_spec (gfc_array_spec **asp, bool match_dim, bool match_codim) array_type current_type; gfc_array_spec *as; int i; - - as = gfc_get_array_spec (); - as->corank = 0; - as->rank = 0; - for (i = 0; i < GFC_MAX_DIMENSIONS; i++) - { - as->lower[i] = NULL; - as->upper[i] = NULL; - } + as = gfc_get_array_spec (); if (!match_dim) goto coarray; -- cgit v1.1