fix crashes on I/O statements involving COMMON variables

From-SVN: r26540

gcc/f/ChangeLog

+Sun Apr 18 21:53:58 1999  Craig Burley  <craig@jcb-sc.com>
+
+	* com.c (ffecom_sym_transform_): COMMON and EQUIVALENCE
+	variables have constant addresses (EQUIVALENCE only if
+	containing aggregate is static).
+
 Sat Apr 17 16:55:59 1999  Craig Burley  <craig@jcb-sc.com>
 
 	* bugs.texi, ffe.texi, g77.texi, g77install.texi, news.texi:

gcc/f/com.c

@@ -7414,6 +7414,7 @@ ffecom_sym_transform_ (ffesymbol s)
 			      build_int_2 (offset, 0));
 		t = convert (build_pointer_type (type),
 			     t);
+		TREE_CONSTANT (t) = staticp (et);
 
 		addr = TRUE;
 
@@ -7930,6 +7931,7 @@ ffecom_sym_transform_ (ffesymbol s)
 			      build_int_2 (offset, 0));
 		t = convert (build_pointer_type (type),
 			     t);
+		TREE_CONSTANT (t) = 1;
 
 		addr = TRUE;
 	      }

gcc/f/version.c

-const char *ffe_version_string = "0.5.24-19990417";
+const char *ffe_version_string = "0.5.24-19990418";