gcc/testsuite/gfortran.dg/goto_8.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 41781: [OOP] bogus undefined label error with SELECT TYPE.
   4 !
   5 ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
   6 ! and Tobias Burnus >burnus@gcc.gnu.org>
   7
   8 ! 1st example: jumping out of SELECT TYPE (valid)
   9 type bar
  10   integer :: i
  11 end type bar
  12 class(bar), pointer :: var
  13 select type(var)
  14 class default
  15   goto 9999
  16 end select
  17 9999 continue
  18
  19 ! 2nd example: jumping out of BLOCK (valid)
  20 block
  21   goto 88
  22 end block
  23 88 continue
  24
  25 ! 3rd example: jumping into BLOCK (invalid)
  26 goto 99        ! { dg-warning "is not in the same block" }
  27 block
  28   99 continue  ! { dg-warning "is not in the same block" }
  29 end block
  30
  31 end