fix crashes on I/O statements involving COMMON variables

From-SVN: r26540

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 29caa6ec16bf61abb66407b30c80f1198ef630f1..74e0684b3b83b5af05c37342a2d1fe080730ab7e 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,9 @@
+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:

diff --git a/gcc/f/com.c b/gcc/f/com.c
index 1d7676dbba22f811f2be0330f9ecb8503766615a..ad85268ea3edf6dc7da650977294300d10052e46 100644 (file)
--- a/gcc/f/com.c
+++ b/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;
              }

diff --git a/gcc/f/version.c b/gcc/f/version.c
index 807dbce5ed432fd86db3738615f8bcf9e2e42aa3..5ae6746189a65a64e56b26e4b86f19fe4a6ea6b9 100644 (file)
--- a/gcc/f/version.c
+++ b/gcc/f/version.c
@@ -1 +1 @@
-const char *ffe_version_string = "0.5.24-19990417";
+const char *ffe_version_string = "0.5.24-19990418";