gfortran.h (struct gfc_symbol): Add equiv_built.
authorPaul Brook <paul@codesourcery.com>
Sun, 23 May 2004 15:14:36 +0000 (15:14 +0000)
committerPaul Brook <pbrook@gcc.gnu.org>
Sun, 23 May 2004 15:14:36 +0000 (15:14 +0000)
commit5291e69adedd50438763fcaf9c2bfd05d75ca5ff
treef8205786cc8a2cd8c9046a78ba52ff069a490726
parent68ca19239c5b844c4f9b82776d2c18d991b880bb
gfortran.h (struct gfc_symbol): Add equiv_built.

* 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
gcc/fortran/ChangeLog
gcc/fortran/gfortran.h
gcc/fortran/trans-common.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.fortran-torture/execute/common_init_1.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.fortran-torture/execute/equiv_init_1.f90 [new file with mode: 0644]