diff options
| author | Mikael Morin <mikael@gcc.gnu.org> | 2010-08-02 15:30:47 +0000 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2010-08-02 15:30:47 +0000 |
| commit | ef973f3f4b72e19f6e1354f4cbd9f387bbb7e510 (patch) | |
| tree | 1b3eba31b52898eea06166444e90925e4c80c906 /gcc/fortran/intrinsic.c | |
| parent | 13cc4787bfdee0fa3d1cfe7b73f9d2492eb3320c (diff) | |
| download | gcc-ef973f3f4b72e19f6e1354f4cbd9f387bbb7e510.zip gcc-ef973f3f4b72e19f6e1354f4cbd9f387bbb7e510.tar.gz gcc-ef973f3f4b72e19f6e1354f4cbd9f387bbb7e510.tar.bz2 | |
re PR fortran/42051 ([OOP] ICE on array-valued function with CLASS formal argument)
2010-08-02 Mikael Morin <mikael@gcc.gnu.org>
Janus Weil <janus@gcc.gnu.org>
PR fortran/42051
PR fortran/44064
PR fortran/45151
* intrinsic.c (gfc_get_intrinsic_sub_symbol): Commit changed symbol.
* symbol.c (gen_cptr_param, gen_fptr_param, gen_shape_param,
gfc_copy_formal_args, gfc_copy_formal_args_intr,
gfc_copy_formal_args_ppc, generate_isocbinding_symbol): Ditto.
* parse.c (parse_derived_contains, parse_spec, parse_progunit):
Call reject_statement in case of error.
(match_deferred_characteritics): Call gfc_undo_symbols in case match
fails.
Co-Authored-By: Janus Weil <janus@gcc.gnu.org>
From-SVN: r162821
Diffstat (limited to 'gcc/fortran/intrinsic.c')
| -rw-r--r-- | gcc/fortran/intrinsic.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c index 87d9c80..121afc0 100644 --- a/gcc/fortran/intrinsic.c +++ b/gcc/fortran/intrinsic.c @@ -112,6 +112,8 @@ gfc_get_intrinsic_sub_symbol (const char *name) sym->attr.flavor = FL_PROCEDURE; sym->attr.proc = PROC_INTRINSIC; + gfc_commit_symbol (sym); + return sym; } |