------- Comment #1 from tkoenig at gcc dot gnu dot org 2006-07-15 13:40 -------
> Index: gcc/fortran/trans-common.c
> ===================================================================
> *** gcc/fortran/trans-common.c (revision 115409)
> --- gcc/fortran/trans-common.c (working copy)
> *************** translate_common (gfc_common_head *commo
> *** 962,967 ****
> --- 962,974 ----
> current_offset += s->length;
> }
>
> + if (common_segment == NULL)
> + {
> + gfc_error ("COMMON '%s' at %L does not exist",
> + common->name, &common->where);
> + return;
> + }
> +
> if (common_segment->offset != 0)
> {
> gfc_warning ("COMMON '%s' at %L requires %d bytes of padding at
> start",
>
Yes, please go ahead. Obvious, really :-)
Thomas
--
tkoenig at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |tkoenig at gcc dot gnu dot
| |org
Status|UNCONFIRMED |NEW
Ever Confirmed|0 |1
Last reconfirmed|0000-00-00 00:00:00 |2006-07-15 13:40:25
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=28384
