X-Git-Url: https://oss.titaniummirror.com/gitweb?a=blobdiff_plain;f=gcc%2Ftestsuite%2Fg77.f-torture%2Fexecute%2F980628-5.f;fp=gcc%2Ftestsuite%2Fg77.f-torture%2Fexecute%2F980628-5.f;h=0000000000000000000000000000000000000000;hb=6fed43773c9b0ce596dca5686f37ac3fc0fa11c0;hp=14f39e3c51e0c89986197e36e8ce5dfed5a9dfde;hpb=27b11d56b743098deb193d510b337ba22dc52e5c;p=msp430-gcc.git

diff --git a/gcc/testsuite/g77.f-torture/execute/980628-5.f b/gcc/testsuite/g77.f-torture/execute/980628-5.f
deleted file mode 100644
index 14f39e3c..00000000
--- a/gcc/testsuite/g77.f-torture/execute/980628-5.f
+++ /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
-
-      character c
-      double precision d
-      common /cmn/ c, d
-
-      if (c .ne. '1') call abort
-      if (d .ne. 10.) call abort
-
-      end
-
-      block data init
-      implicit none
-
-      character c
-      double precision d
-      common /cmn/ c, d
-
-      data c/'1'/, d/10./
-
-      end