re PR fortran/13415 (Internal error with pointer array in common)
authorTobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
Sat, 10 Jul 2004 02:46:54 +0000 (02:46 +0000)
committerPaul Brook <pbrook@gcc.gnu.org>
Sat, 10 Jul 2004 02:46:54 +0000 (02:46 +0000)
commitad6e2a18c2013863e1cf448471e1fa243403eb50
treee756fdfff64bd3ba23400ab30a45d743c4f0de8b
parent3ee7acd137ffd4df6edcff788f9a75eb1f533ffc
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
gcc/fortran/ChangeLog
gcc/fortran/trans-common.c
gcc/fortran/trans-types.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/common_pointer_1.f90 [new file with mode: 0644]