diff options
| author | Dave Love <fx@gcc.gnu.org> | 1998-05-23 09:54:41 +0000 |
|---|---|---|
| committer | Dave Love <fx@gcc.gnu.org> | 1998-05-23 09:54:41 +0000 |
| commit | 2b9a5752b9fb4465a11ea52323c0895a99bc7918 (patch) | |
| tree | 7a0415cc0bb5e237b24e2a4aebce16e6e3200b97 /gcc | |
| parent | 7b6a7d3b5fa58b19cd0cf8d5321922ccc31de386 (diff) | |
| download | gcc-2b9a5752b9fb4465a11ea52323c0895a99bc7918.zip gcc-2b9a5752b9fb4465a11ea52323c0895a99bc7918.tar.gz gcc-2b9a5752b9fb4465a11ea52323c0895a99bc7918.tar.bz2 | |
New test.
From-SVN: r19972
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/g77.f-torture/compile/970915-0.f | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/gcc/testsuite/g77.f-torture/compile/970915-0.f b/gcc/testsuite/g77.f-torture/compile/970915-0.f new file mode 100644 index 0000000..267c873 --- /dev/null +++ b/gcc/testsuite/g77.f-torture/compile/970915-0.f @@ -0,0 +1,19 @@ +* fixed by patch to safe_from_p to avoid visiting any SAVE_EXPR +* node twice in a given top-level call to it. + + SUBROUTINE TSTSIG11 + IMPLICIT COMPLEX (A-Z) + EXTERNAL gzi1,gzi2 + branch3 = sw2 / cw + . * ( rdw * (epsh*gzi1(A,B)-gzi2(A,B)) + . + rdw * (epsh*gzi1(A,B)-gzi2(A,B)) ) + . + (-1./2. + 2.*sw2/3.) / (sw*cw) + . * rdw * (epsh*gzi1(A,B)-gzi2(A,B) + . + rdw * (epsh*gzi1(A,B)-gzi2(A,B)) + . + rdw * (epsh*gzi1(A,B)-gzi2(A,B)) ) + . * rup * (epsh*gzi1(A,B)-gzi2(A,B) + . + rup * (epsh*gzi1(A,B)-gzi2(A,B)) ) + . * 4.*(3.-tw**2) * gzi2(A,B) + . + ((1.+2./tauw)*tw**2-(5.+2./tauw))* gzi1(A,B) + RETURN + END |