diff options
| author | Paul Brook <paul@codesourcery.com> | 2005-04-29 02:34:11 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2005-04-29 02:34:11 +0000 |
| commit | 1a7bfcc32d0a4b41e86c541cc48b80f529ca8818 (patch) | |
| tree | f55b04a0462d8b524931c5473322c4b7989f8482 /gcc/fortran/trans-expr.c | |
| parent | 21bf822e8384114a2838d101beb6c414783e6c08 (diff) | |
| download | gcc-1a7bfcc32d0a4b41e86c541cc48b80f529ca8818.zip gcc-1a7bfcc32d0a4b41e86c541cc48b80f529ca8818.tar.gz gcc-1a7bfcc32d0a4b41e86c541cc48b80f529ca8818.tar.bz2 | |
trans-expr.c (gfc_conv_expr_present): Fix broken assert.
2005-04-29 Paul Brook <paul@codesourcery.com>
* trans-expr.c (gfc_conv_expr_present): Fix broken assert. Update
comment.
From-SVN: r98968
Diffstat (limited to 'gcc/fortran/trans-expr.c')
| -rw-r--r-- | gcc/fortran/trans-expr.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 2db5fbd..58a0d6e 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -115,14 +115,15 @@ gfc_make_safe_expr (gfc_se * se) } -/* Return an expression which determines if a dummy parameter is present. */ +/* Return an expression which determines if a dummy parameter is present. + Also used for arguments to procedures with multiple entry points. */ tree gfc_conv_expr_present (gfc_symbol * sym) { tree decl; - gcc_assert (sym->attr.dummy && sym->attr.optional); + gcc_assert (sym->attr.dummy); decl = gfc_get_symbol_decl (sym); if (TREE_CODE (decl) != PARM_DECL) |