From: Bud Davis <bdavis9659@comcast.net>
Date: Thu, 22 May 2003 19:49:01 +0000 (+0000)
Subject: com.c (ffecom_sym_transform_): Error out on unallocatable storage after type is set.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=94e01adf1ca0942e6066e648397f47aca0c58509;p=gcc.git

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
---

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;