gcc/testsuite/gfortran.dg/end_associate_label_1.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/50071
   4 ! A label in an END ASSOCIATE statement was ignored; as a result, a GOTO
   5 ! to such a label was rejected.
   6 !
   7 ! Contributed by Tobias Burnus <burnus@net-b.de>
   8
   9    integer :: i
  10    associate (j => i)
  11      goto 1
  12      print *, 'Hello'
  13 1  end associate
  14 end