diff options
author | Bud Davis <bdavis9659@comcast.net> | 2003-05-22 19:49:01 +0000 |
---|---|---|
committer | Toon Moene <toon@gcc.gnu.org> | 2003-05-22 19:49:01 +0000 |
commit | 94e01adf1ca0942e6066e648397f47aca0c58509 (patch) | |
tree | b8dd23ca11228862472188a95acd96b7786a282f /gcc/f | |
parent | 29495994694b728b6461b9d6ece5e129d6ca6b7f (diff) | |
download | gcc-94e01adf1ca0942e6066e648397f47aca0c58509.zip gcc-94e01adf1ca0942e6066e648397f47aca0c58509.tar.gz gcc-94e01adf1ca0942e6066e648397f47aca0c58509.tar.bz2 |
com.c (ffecom_sym_transform_): Error out on unallocatable storage after type is set.
2003-05-22 Bud Davis <bdavis9659@comcast.net>
* com.c (ffecom_sym_transform_): Error out on unallocatable
storage after type is set.
From-SVN: r67097
Diffstat (limited to 'gcc/f')
-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; |