From ffacfc7cb67870796368b9dfa000d0e1f36ab879 Mon Sep 17 00:00:00 2001 From: Robert Lipe Date: Wed, 11 Mar 1998 11:15:31 +0000 Subject: [PATCH] 980310-5.f: Deleted. * g77.f-torture/execute/980310-5.f: Deleted. Craig Burley and Dave Love agree the Fortran source is bogus. From-SVN: r18475 --- gcc/testsuite/ChangeLog | 5 ++ .../g77.f-torture/execute/980310-5.f | 62 ------------------- 2 files changed, 5 insertions(+), 62 deletions(-) delete mode 100644 gcc/testsuite/g77.f-torture/execute/980310-5.f diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index ae099dc9d64..c0d49dccb69 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +Wed Mar 11 13:08:48 1998 Robert Lipe + + * g77.f-torture/execute/980310-5.f: Deleted. Craig Burley and + Dave Love agree the Fortran source is bogus. + Wed Mar 11 00:03:49 1998 Robert Lipe * g77.f-torture/compile/980310-1.f, g77.f-torture/compile/980310-2.f diff --git a/gcc/testsuite/g77.f-torture/execute/980310-5.f b/gcc/testsuite/g77.f-torture/execute/980310-5.f deleted file mode 100644 index a496cf7c321..00000000000 --- a/gcc/testsuite/g77.f-torture/execute/980310-5.f +++ /dev/null @@ -1,62 +0,0 @@ -C Confirmed on EGCS 1.0.1 on i586-pc-sco3.2v5.0.4 -C To: egcs-bugs@cygnus.com -C Subject: [Vladimir Eltsov ] bug with -fcaller-saves -C From: Dave Love -C Date: 29 Jan 1998 18:20:47 +0000 -C Message-ID: - -C This appears to be a (non-critical?) backend problem reported as a g77 -C bug. I can reproduce it, but (only) with -O[2]. Any ideas other than -C `don't do that, then'? :-) -C -C ------- Start of forwarded message ------- -C Date: Tue, 27 Jan 1998 19:25:19 +0200 (EET) -C From: Vladimir Eltsov -C To: fortran@gnu.org -C Subject: bug with -fcaller-saves -C Message-ID: -C MIME-Version: 1.0 -C Content-Type: TEXT/PLAIN; charset=US-ASCII -C -C Hello! -C -C Following program would hang after printing 6 lines when compiled with -C 'g77 -O2 test.f' on x86 architecture, but would work OK when compiled with -C 'g77 -O2 -fno-caller-saves test.f' both for gnu and egcs variants of the -C compiler. -C -C Details follow: -C ------- test.f ------- - program test - implicit double precision (a-h,o-z) - - t = 0 -C Was: tend=1. Changed to shorten runtime. robertl - tend = .0320d-3 - dt = 6d-7 - h = 0.314d-7 - k = 1 - ti = dt - - do while (t.lt.tend) - do while(t.lt.ti) - if (t+h.gt.ti) then - h = ti-t - end if - call fun(t,h) - end do - print *,k,t,t/5d-7 - k = k+1 - ti = k*dt - end do - - end - - subroutine fun(t,h) - implicit double precision (a-h,o-z) - - t = t+h - h = 0.314d-7 - - return - end -- 2.30.2