OSDN Git Service

* gfortran.h (struct gfc_symbol): Add equiv_built.
authorpbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 23 May 2004 15:14:36 +0000 (15:14 +0000)
committerpbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 23 May 2004 15:14:36 +0000 (15:14 +0000)
commitead624501c67fcfbe42d3f32951f647f83d16ed6
treef8205786cc8a2cd8c9046a78ba52ff069a490726
parentb21711eb91a9f2cc0017fc8e09e68e62d13c02ef
* 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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@82165 138bc75d-0d04-0410-961f-82ee72b054a4
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]