diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/g77/20000511-1.f')
-rw-r--r-- | gcc/testsuite/gfortran.dg/g77/20000511-1.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/g77/20000511-1.f b/gcc/testsuite/gfortran.dg/g77/20000511-1.f index fca4bf94080..261b6a0e27c 100644 --- a/gcc/testsuite/gfortran.dg/g77/20000511-1.f +++ b/gcc/testsuite/gfortran.dg/g77/20000511-1.f @@ -14,9 +14,9 @@ C -ffast-math ICE provoked by this conditional C C code for both increments equal to 1 C - do i= 1,n - sy(i)= sy(i)+sa*sx(i) - enddo - endif + do i= 1,n + sy(i)= sy(i)+sa*sx(i) + enddo + endif return end |