diff options
| author | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-06-30 10:25:40 +0000 |
|---|---|---|
| committer | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-06-30 10:25:40 +0000 |
| commit | dffd0df723b6d9fbb749d8cc522f9202892383f4 (patch) | |
| tree | f873fddb9973169bde2c078e90368a59e90983c7 /gcc/fortran/array.c | |
| parent | 317cf4c224d682fca2dd98e9dc54f453fee55dbe (diff) | |
PR fortran/49540
* gfortran.h (gfc_constructor): Add repeat field.
* trans-array.c (gfc_conv_array_initializer): Handle repeat > 1.
* array.c (current_expand): Add repeat field.
(expand_constructor): Copy repeat.
* constructor.c (node_free, node_copy, gfc_constructor_get,
gfc_constructor_lookup): Handle repeat field.
(gfc_constructor_lookup_next, gfc_constructor_remove): New functions.
* data.h (gfc_assign_data_value): Add mpz_t * argument.
(gfc_assign_data_value_range): Removed.
* constructor.h (gfc_constructor_advance): Removed.
(gfc_constructor_lookup_next, gfc_constructor_remove): New prototypes.
* data.c (gfc_assign_data_value): Add REPEAT argument, handle it and
also handle overwriting a range with a single entry.
(gfc_assign_data_value_range): Removed.
* resolve.c (check_data_variable): Adjust gfc_assign_data_value
call. Use gfc_assign_data_value instead of
gfc_assign_data_value_expr.
* gfortran.dg/pr49540-1.f90: New test.
* gfortran.dg/pr49540-2.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@175693 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/array.c')
| -rw-r--r-- | gcc/fortran/array.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/array.c b/gcc/fortran/array.c index 1394e17baf0c..3074275a819a 100644 --- a/gcc/fortran/array.c +++ b/gcc/fortran/array.c @@ -1322,6 +1322,7 @@ typedef struct mpz_t *offset; gfc_component *component; + mpz_t *repeat; gfc_try (*expand_work_function) (gfc_expr *); } @@ -1556,6 +1557,7 @@ expand_constructor (gfc_constructor_base base) return FAILURE; } current_expand.offset = &c->offset; + current_expand.repeat = &c->repeat; current_expand.component = c->n.component; if (current_expand.expand_work_function (e) == FAILURE) return FAILURE; |