diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/g77/980310-3.f')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/g77/980310-3.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/g77/980310-3.f b/gcc/testsuite/gfortran.dg/g77/980310-3.f index 5656023785..098e22c680 100644 --- a/gcc/testsuite/gfortran.dg/g77/980310-3.f +++ b/gcc/testsuite/gfortran.dg/g77/980310-3.f @@ -128,7 +128,7 @@ c compute right side vector in resulting linear equations c basl = dlog10(2.0d0) do 240 i = low,igh - do 240 j = low,igh + do 240 j = low,igh ! { dg-warning "Obsolescent feature: Shared DO termination" } tb = b(i,j) ta = a(i,j) if (ta .eq. 0.0d0) go to 220 @@ -242,7 +242,7 @@ c ir = wk(i,1) fi = 2.0d0**ir if (i .lt. low) fi = 1.0d0 - do 400 j =low,n + do 400 j =low,n ! { dg-warning "Obsolescent feature: Shared DO termination" } jc = cscale(j) fj = 2.0d0**jc if (j .le. igh) go to 390 |