2003-05-22 Bud Davis <bdavis9659@comcast.net>

	* com.c (ffecom_sym_transform_): Error out on unallocatable
	storage after type is set.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@67097 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index c917533..4a36cca 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 951ef44..964e74d 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;