diff options
| author | Andre Vehreschild <vehre@gcc.gnu.org> | 2017-01-18 19:35:41 +0100 |
|---|---|---|
| committer | Andre Vehreschild <vehre@gcc.gnu.org> | 2017-01-18 19:35:41 +0100 |
| commit | 3083fc562eb49c1df94453a17f9dbc37462ab0d0 (patch) | |
| tree | 7617d8af5a4812df06b8c844823c10cd509ae737 /gcc/fortran/trans-decl.c | |
| parent | 9bca63d44bf10ac1341f44b86b1c0f5b1ca5bc1b (diff) | |
| download | gcc-3083fc562eb49c1df94453a17f9dbc37462ab0d0.zip gcc-3083fc562eb49c1df94453a17f9dbc37462ab0d0.tar.gz gcc-3083fc562eb49c1df94453a17f9dbc37462ab0d0.tar.bz2 | |
re PR fortran/70696 ([Coarray] ICE on EVENT POST of host-associated EVENT_TYPE coarray)
gcc/fortran/ChangeLog:
2017-01-17 Andre Vehreschild <vehre@gcc.gnu.org>
PR fortran/70696
Missed some parts, here they are:
* trans-decl.c (gfc_build_qualified_array): Add static tokens to the
parent function's scope.
* trans-expr.c (gfc_get_tree_for_caf_expr): Shorten code. Remove
unnecessary assert.
gcc/testsuite/ChangeLog:
2017-01-17 Andre Vehreschild <vehre@gcc.gnu.org>
PR fortran/70696
* gfortran.dg/coarray_event_1.f08: New test.
From-SVN: r244587
Diffstat (limited to 'gcc/fortran/trans-decl.c')
| -rw-r--r-- | gcc/fortran/trans-decl.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index fffb492..51c23e8 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -971,6 +971,8 @@ gfc_build_qualified_array (tree decl, gfc_symbol * sym) DECL_CONTEXT (token) = sym->ns->proc_name->backend_decl; gfc_module_add_decl (cur_module, token); } + else if (sym->attr.host_assoc) + gfc_add_decl_to_parent_function (token); else gfc_add_decl_to_function (token); } |