diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-07-10 02:46:54 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-07-10 02:46:54 +0000 |
| commit | ad6e2a18c2013863e1cf448471e1fa243403eb50 (patch) | |
| tree | e756fdfff64bd3ba23400ab30a45d743c4f0de8b /gcc/expr.c | |
| parent | 3ee7acd137ffd4df6edcff788f9a75eb1f533ffc (diff) | |
| download | gcc-ad6e2a18c2013863e1cf448471e1fa243403eb50.zip gcc-ad6e2a18c2013863e1cf448471e1fa243403eb50.tar.gz gcc-ad6e2a18c2013863e1cf448471e1fa243403eb50.tar.bz2 | |
re PR fortran/13415 (Internal error with pointer array in common)
PR fortran/13415
* trans-common.c (calculate_length): Remove ...
(get_segment_info): Merge into here. Save field type.
(build_field): Use saved type.
(create_common, new_condition, new_segment, finish_equivalences):
Use new get_segment_info.
* trans-types.c: Update comment.
testsuite
* gfortran.dg/common_pointer_1.f90: New test.
Co-Authored-By: Paul Brook <paul@codesourcery.com>
From-SVN: r84439
Diffstat (limited to 'gcc/expr.c')
0 files changed, 0 insertions, 0 deletions