re PR fortran/38507 (Bogus Warning: Deleted feature: GOTO jumps to END of construct)

[gcc.git] / gcc / testsuite / gfortran.dg / goto_4.f90

diff --git a/gcc/testsuite/gfortran.dg/goto_4.f90 b/gcc/testsuite/gfortran.dg/goto_4.f90
index d48af7240fe0656f34f48920c881dd34fa76322b..7340814cc0196dd54a14713196f4c4ae36811df6 100644 (file)
--- 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