diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/goto_4.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/goto_4.f90 | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/goto_4.f90 b/gcc/testsuite/gfortran.dg/goto_4.f90 index d48af7240fe..7340814cc01 100644 --- a/gcc/testsuite/gfortran.dg/goto_4.f90 +++ b/gcc/testsuite/gfortran.dg/goto_4.f90 @@ -1,10 +1,11 @@ ! { dg-do run } ! PR 17708: Jumping to END DO statements didn't do the right thing +! PR 38507: The warning we used to give was wrong program test j = 0 do 10 i=1,3 - if(i == 2) goto 10 ! { dg-warning "jumps to END" } + if(i == 2) goto 10 j = j+1 -10 enddo ! { dg-warning "jumps to END" } +10 enddo if (j/=2) call abort end |