https://gcc.gnu.org/bugzilla/show_bug.cgi?id=71687
--- Comment #4 from Jakub Jelinek <jakub at gcc dot gnu.org> --- Author: jakub Date: Fri Jul 1 20:52:54 2016 New Revision: 237926 URL: https://gcc.gnu.org/viewcvs?rev=237926&root=gcc&view=rev Log: 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. Added: trunk/gcc/testsuite/gfortran.dg/gomp/pr71687.f90 Modified: trunk/gcc/fortran/ChangeLog trunk/gcc/fortran/f95-lang.c trunk/gcc/fortran/trans-decl.c trunk/gcc/testsuite/ChangeLog