diff options
| author | Mikael Morin <mikael@gcc.gnu.org> | 2010-10-06 15:29:46 +0000 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2010-10-06 15:29:46 +0000 |
| commit | 40a33e3f4b6173b8e2491cdecc77e94d858ba547 (patch) | |
| tree | 7aead7cc36dfbdb46fa84200b3bd702eb4d9e328 /gcc/fortran/array.c | |
| parent | 1b02e40106a10a241a3753ffeeac2acfd21772fb (diff) | |
| download | gcc-40a33e3f4b6173b8e2491cdecc77e94d858ba547.zip gcc-40a33e3f4b6173b8e2491cdecc77e94d858ba547.tar.gz gcc-40a33e3f4b6173b8e2491cdecc77e94d858ba547.tar.bz2 | |
array.c (gfc_match_array_spec): Don't re-initialize cleared struct.
2010-10-06 Mikael Morin <mikael@gcc.gnu.org>
* array.c (gfc_match_array_spec): Don't re-initialize cleared struct.
* symbol.c (gen_shape_param): Ditto.
From-SVN: r165039
Diffstat (limited to 'gcc/fortran/array.c')
| -rw-r--r-- | gcc/fortran/array.c | 10 |
1 files changed, 1 insertions, 9 deletions
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; |