trans-common.c (create_common): Build RECORD_NODE for common blocks contain no equiva...
authorCanqun Yang <canqun@nudt.edu.cn>
Sat, 26 Mar 2005 05:34:58 +0000 (13:34 +0800)
committerCanqun Yang <canqun@gcc.gnu.org>
Sat, 26 Mar 2005 05:34:58 +0000 (13:34 +0800)
commita312242430aba54965cde34ef5f249751bd56497
tree29833a7f9086efd155911e55276a376a4d654262
parent1ad81c8e5789887beee44c95ee81e21b920408a8
trans-common.c (create_common): Build RECORD_NODE for common blocks contain no equivalence objects.

* trans-common.c (create_common): Build RECORD_NODE for common blocks
contain no equivalence objects.
(add_equivalences): New argument saw_equiv.
(trans_common): New local variable saw_equiv.
(finish_equivalences): Add a local variable dummy, Always pass true
for the 3rd parameter to create_common.

From-SVN: r97079
gcc/fortran/ChangeLog
gcc/fortran/trans-common.c