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 c9175335abbbce8676ba7e049f2a54427686a9ca..4a36cca1b530a6b032b9f2c17f16ade764f30006 100644 (file)
--- 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 951ef448d4bd84f4c4b9721413c3adf8d6733ac4..964e74ddff37f5aaad8ee618b4c8de0dd2e71f9f 100644 (file)
--- 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;