diff options
| author | Paul Brook <paul@codesourcery.com> | 2004-05-23 15:14:36 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-05-23 15:14:36 +0000 |
| commit | 5291e69adedd50438763fcaf9c2bfd05d75ca5ff (patch) | |
| tree | f8205786cc8a2cd8c9046a78ba52ff069a490726 /libcpp | |
| parent | 68ca19239c5b844c4f9b82776d2c18d991b880bb (diff) | |
| download | gcc-5291e69adedd50438763fcaf9c2bfd05d75ca5ff.zip gcc-5291e69adedd50438763fcaf9c2bfd05d75ca5ff.tar.gz gcc-5291e69adedd50438763fcaf9c2bfd05d75ca5ff.tar.bz2 | |
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
Diffstat (limited to 'libcpp')
0 files changed, 0 insertions, 0 deletions