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/com.c | |
| 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/com.c')
| -rw-r--r-- | gcc/f/com.c | 10 |
1 files changed, 5 insertions, 5 deletions
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; |