------- Comment #8 from aldot at gcc dot gnu dot org 2006-10-22 21:08 ------- Created an attachment (id=12476) --> (http://gcc.gnu.org/bugzilla/attachment.cgi?id=12476&action=view) untested proposed fix
I hope to test this patch soon. Note that it adds a warning about blank common in block data but -- unlike the patch in the previous comment -- does accept the common instead of abandoning it via goto cleanup. Please advise if not cleaning this up is acceptable or if blank commons should be ignored there. fortran/ChangeLog: 2006-10-22 Bernhard Fischer <[EMAIL PROTECTED]> PR fortran/29537 * trans-common.c (gfc_trans_common): For unnamed block data the proc_name is null, so use the locus of the common. (gfc_sym_mangled_common_id): Fix whitespace. * match.c (gfc_match_common): Emit warning about blank common in block data. testsuite/ChangeLog: 2006-10-22 Bernhard Fischer <[EMAIL PROTECTED]> PR fortran/29537 * blockdata_1.f90: Add warning about blank common in block data. * blockdata_2.f90: New testcase. -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29537