From 94e01adf1ca0942e6066e648397f47aca0c58509 Mon Sep 17 00:00:00 2001 From: Bud Davis Date: Thu, 22 May 2003 19:49:01 +0000 Subject: com.c (ffecom_sym_transform_): Error out on unallocatable storage after type is set. 2003-05-22 Bud Davis * com.c (ffecom_sym_transform_): Error out on unallocatable storage after type is set. From-SVN: r67097 --- gcc/f/ChangeLog | 5 +++++ gcc/f/com.c | 10 +++++----- 2 files changed, 10 insertions(+), 5 deletions(-) (limited to 'gcc/f') 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 + + * com.c (ffecom_sym_transform_): Error out on unallocatable + storage after type is set. + 2003-05-18 Toon Moene * 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; -- cgit v1.1