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

gcc/f/ChangeLog

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

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;