diff options
Diffstat (limited to 'gcc/testsuite/g77.f-torture/execute/980628-6.f')
-rw-r--r-- | gcc/testsuite/g77.f-torture/execute/980628-6.f | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/gcc/testsuite/g77.f-torture/execute/980628-6.f b/gcc/testsuite/g77.f-torture/execute/980628-6.f deleted file mode 100644 index c5ade65ed39..00000000000 --- a/gcc/testsuite/g77.f-torture/execute/980628-6.f +++ /dev/null @@ -1,26 +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(100) - common /cmn/ c, d - - if (d(80) .ne. 10.) call abort - - end - - block data init - implicit none - - character c - double precision d(100) - common /cmn/ c, d - - data d(80)/10./ - - end |