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
This commit is contained in:
parent
2949599469
commit
94e01adf1c
@ -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.
|
||||
|
10
gcc/f/com.c
10
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;
|
||||
|
Loading…
Reference in New Issue
Block a user