diff options
Diffstat (limited to 'gcc/testsuite/g77.f-torture/execute/980628-5.f')
-rw-r--r-- | gcc/testsuite/g77.f-torture/execute/980628-5.f | 27 |
1 files changed, 0 insertions, 27 deletions
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 14f39e3c51e..00000000000 --- 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 |