common_init_1.f90
477 Bytes
-
gfortran.h (struct gfc_symbol): Add equiv_built. · 5291e69a
* gfortran.h (struct gfc_symbol): Add equiv_built. * trans-common.c: Change int to HOST_WIDE_INT. Capitalize error messages. (current_length): Remove. (add_segments): New function. (build_equiv_decl): Create initialized common blocks. (build_common_decl): Always add decl to bindings. (create_common): Create initializers. (find_segment_info): Reformat to match coding conventions. (new_condition): Use add_segments. (add_condition, find_equivalence, add_equivalences): Move iteration inside functions. Only process each segment once. (new_segment, finish_equivalences, translate_common): Simplify. testsuite/ * gfortran.fortran-torture/execute/common_init_1.f90: New test. * gfortran.fortran-torture/execute/equiv_init.f90: New test. Co-Authored-By: Victor Leikehman <lei@haifasphere.co.il> From-SVN: r82165
Paul Brook committed