diff options
-rw-r--r-- | gcc/f/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/f/com.c | 10 |
2 files changed, 10 insertions, 5 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index c917533..4a36cca 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,8 @@ +2003-05-22 Bud Davis <bdavis9659@comcast.net> + + * com.c (ffecom_sym_transform_): Error out on unallocatable + storage after type is set. + 2003-05-18 Toon Moene <toon@moene.indiv.nluug.nl> * intdoc.in: Fix documentation of IDATE. diff --git a/gcc/f/com.c b/gcc/f/com.c index 951ef44..964e74d 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -7408,16 +7408,16 @@ ffecom_sym_transform_ (ffesymbol s) ffestorag st = ffesymbol_storage (s); tree type; - if ((st != NULL) - && (ffestorag_size (st) == 0)) + type = ffecom_type_localvar_ (s, bt, kt); + + if (type == error_mark_node) { t = error_mark_node; break; } - type = ffecom_type_localvar_ (s, bt, kt); - - if (type == error_mark_node) + if ((st != NULL) + && (ffestorag_size (st) == 0)) { t = error_mark_node; break; |