OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/21730 ([4.0 only] Character length incorrect.) 

PR fortran/21730
        * decl.c (do_parm): Adjust character initializer to character length
        of symbol before assigning.

From-SVN: r102104
This commit is contained in:
David Edelsohn 2005-07-17 00:48:46 +00:00 committed by David Edelsohn
parent 30702a9f84
commit 7e2eba4bf9
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2005-07-16 David Edelsohn <edelsohn@gnu.org>
PR fortran/21730
* decl.c (do_parm): Adjust character initializer to character length
of symbol before assigning.
2005-07-14 Steve Ellcey <sje@cup.hp.com>
* trans-types.c (MAX_REAL_KINDS): Increase from 4 to 5.

10
gcc/fortran/decl.c
View File

@ -3101,6 +3101,16 @@ do_parm (void)
goto cleanup;
}
if (sym->ts.type == BT_CHARACTER
&& sym->ts.cl != NULL
&& sym->ts.cl->length != NULL
&& sym->ts.cl->length->expr_type == EXPR_CONSTANT
&& init->expr_type == EXPR_CONSTANT
&& init->ts.type == BT_CHARACTER
&& init->ts.kind == 1)
gfc_set_constant_character_len (
mpz_get_si (sym->ts.cl->length->value.integer), init);
sym->value = init;
return MATCH_YES;