]> oss.titaniummirror.com Git - msp430-gcc.git/blobdiff - gcc/testsuite/g77.f-torture/execute/980628-4.f
Imported gcc-4.4.3
[msp430-gcc.git] / gcc / testsuite / g77.f-torture / execute / 980628-4.f
diff --git a/gcc/testsuite/g77.f-torture/execute/980628-4.f b/gcc/testsuite/g77.f-torture/execute/980628-4.f
deleted file mode 100644 (file)
index 40bd6e6..0000000
+++ /dev/null
@@ -1,27 +0,0 @@
-* g77 0.5.23 and previous had bugs involving too little space
-* allocated for EQUIVALENCE and COMMON areas needing initial
-* padding to meet alignment requirements of the system,
-* including when initial values are provided (e.g. DATA).
-
-      program test
-      implicit none
-
-      real r
-      double precision d
-      common /cmn/ r, d
-
-      if (r .ne. 1.) call abort
-      if (d .ne. 10.) call abort
-
-      end
-
-      block data init
-      implicit none
-
-      real r
-      double precision d
-      common /cmn/ r, d
-
-      data r/1./, d/10./
-
-      end