diff options
| author | Tobias Burnus <burnus@net-b.de> | 2009-10-01 18:05:48 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2009-10-01 18:05:48 +0200 |
| commit | 7919373d64a6975212253f444875f6d6718a680e (patch) | |
| tree | c67fb188c87cba54fe1a8ae70e840daa91831d6a /gcc/fortran/decl.c | |
| parent | ec6a6eb7d7abadb0aebfbcc6686a0d762b393f55 (diff) | |
| download | gcc-7919373d64a6975212253f444875f6d6718a680e.zip gcc-7919373d64a6975212253f444875f6d6718a680e.tar.gz gcc-7919373d64a6975212253f444875f6d6718a680e.tar.bz2 | |
re PR fortran/41515 (PARAMETER statement in module subroutines)
2009-10-01 Tobias Burnus <burnus@net-b.de>
PR fortran/41515
* decl.c (do_parm): Call add_init_expr_to_sym.
2009-10-01 Tobias Burnus <burnus@net-b.de>
PR fortran/41515
* gfortran.dg/parameter_array_init_5.f90: New test.
From-SVN: r152377
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 32 |
1 files changed, 3 insertions, 29 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 20718ca..82442042 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -6261,6 +6261,7 @@ do_parm (void) gfc_symbol *sym; gfc_expr *init; match m; + gfc_try t; m = gfc_match_symbol (&sym, 0); if (m == MATCH_NO) @@ -6302,35 +6303,8 @@ do_parm (void) goto cleanup; } - if (sym->ts.type == BT_CHARACTER - && sym->ts.u.cl != NULL - && sym->ts.u.cl->length != NULL - && sym->ts.u.cl->length->expr_type == EXPR_CONSTANT - && init->expr_type == EXPR_CONSTANT - && init->ts.type == BT_CHARACTER) - gfc_set_constant_character_len ( - mpz_get_si (sym->ts.u.cl->length->value.integer), init, -1); - else if (sym->ts.type == BT_CHARACTER && sym->ts.u.cl != NULL - && sym->ts.u.cl->length == NULL) - { - int clen; - if (init->expr_type == EXPR_CONSTANT) - { - clen = init->value.character.length; - sym->ts.u.cl->length = gfc_int_expr (clen); - } - else if (init->expr_type == EXPR_ARRAY) - { - gfc_expr *p = init->value.constructor->expr; - clen = p->value.character.length; - sym->ts.u.cl->length = gfc_int_expr (clen); - } - else if (init->ts.u.cl && init->ts.u.cl->length) - sym->ts.u.cl->length = gfc_copy_expr (sym->value->ts.u.cl->length); - } - - sym->value = init; - return MATCH_YES; + t = add_init_expr_to_sym (sym->name, &init, &gfc_current_locus); + return (t == SUCCESS) ? MATCH_YES : MATCH_ERROR; cleanup: gfc_free_expr (init); |