diff options
| author | Tobias Burnus <burnus@net-b.de> | 2014-06-12 20:35:00 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2014-06-12 20:35:00 +0200 |
| commit | 8fdcb6a997e7125d155b79947a1793f01611527b (patch) | |
| tree | 031a2f7aac4534d08879ee1f3ad488ddc5eec811 /gcc/fortran/resolve.c | |
| parent | 551a6341d5d0fed634c71f710bdae6d7b6b1491e (diff) | |
| download | gcc-8fdcb6a997e7125d155b79947a1793f01611527b.zip gcc-8fdcb6a997e7125d155b79947a1793f01611527b.tar.gz gcc-8fdcb6a997e7125d155b79947a1793f01611527b.tar.bz2 | |
gfortran.h (gfc_copy_formal_args_intr): Update prototype.
2014-06-12 Tobias Burnus <burnus@net-b.de>
* gfortran.h (gfc_copy_formal_args_intr): Update prototype.
* symbol.c (gfc_copy_formal_args_intr): Handle the case
that absent optional arguments should be ignored.
* trans-intrinsic.c (gfc_get_symbol_for_expr): Ditto.
(gfc_conv_intrinsic_funcall,
conv_generic_with_optional_char_arg): Update call.
* resolve.c (gfc_resolve_intrinsic): Ditto.
From-SVN: r211587
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 0e4c181..bc2db7d 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -1674,7 +1674,7 @@ gfc_resolve_intrinsic (gfc_symbol *sym, locus *loc) return false; } - gfc_copy_formal_args_intr (sym, isym); + gfc_copy_formal_args_intr (sym, isym, NULL); sym->attr.pure = isym->pure; sym->attr.elemental = isym->elemental; |