diff options
| author | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-05-22 19:49:01 +0000 |
|---|---|---|
| committer | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-05-22 19:49:01 +0000 |
| commit | 1a0cce2e024bd795f5dd153308c8ec3c23cd1b64 (patch) | |
| tree | b8dd23ca11228862472188a95acd96b7786a282f | |
| parent | 5adfa4fe46b6e4115ba3065544208cd6103d7fab (diff) | |
| download | ppe42-gcc-1a0cce2e024bd795f5dd153308c8ec3c23cd1b64.tar.gz ppe42-gcc-1a0cce2e024bd795f5dd153308c8ec3c23cd1b64.zip | |
2003-05-22 Bud Davis <bdavis9659@comcast.net>
* com.c (ffecom_sym_transform_): Error out on unallocatable
storage after type is set.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@67097 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 c9175335abb..4a36cca1b53 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 951ef448d4b..964e74ddff3 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; |
