diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2016-07-01 22:52:54 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2016-07-01 22:52:54 +0200 |
| commit | 79a592e33e39e2a7d7c2f6180e963074908a15a7 (patch) | |
| tree | a3ddb9cca844feca67466281ebedca4796fe9577 /gcc/fortran/trans-decl.c | |
| parent | e2298656eb195614bcf70e385ddf44a4b137a081 (diff) | |
| download | gcc-79a592e33e39e2a7d7c2f6180e963074908a15a7.zip gcc-79a592e33e39e2a7d7c2f6180e963074908a15a7.tar.gz gcc-79a592e33e39e2a7d7c2f6180e963074908a15a7.tar.bz2 | |
re PR fortran/71687 (ICE in omp_add_variable, at gimplify.c:5821)
PR fortran/71687
* f95-lang.c (struct binding_level): Add reversed field.
(clear_binding_level): Adjust initializer.
(getdecls): If reversed is clear, set it and nreverse the names
chain before returning it.
(poplevel): Use getdecls.
* trans-decl.c (gfc_generate_function_code, gfc_process_block_locals):
Use nreverse to pushdecl decls in the declaration order.
* gfortran.dg/gomp/pr71687.f90: New test.
From-SVN: r237926
Diffstat (limited to 'gcc/fortran/trans-decl.c')
| -rw-r--r-- | gcc/fortran/trans-decl.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 2f5e434..5626753 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -6277,7 +6277,7 @@ gfc_generate_function_code (gfc_namespace * ns) gfc_finish_block (&cleanup)); /* Add all the decls we created during processing. */ - decl = saved_function_decls; + decl = nreverse (saved_function_decls); while (decl) { tree next; @@ -6469,7 +6469,7 @@ gfc_process_block_locals (gfc_namespace* ns) if (flag_coarray == GFC_FCOARRAY_LIB && has_coarray_vars) generate_coarray_init (ns); - decl = saved_local_decls; + decl = nreverse (saved_local_decls); while (decl) { tree next; |