3 ! PR 41781: [OOP] bogus undefined label error with SELECT TYPE.
5 ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
6 ! and Tobias Burnus >burnus@gcc.gnu.org>
8 ! 1st example: jumping out of SELECT TYPE (valid)
12 class(bar
), pointer :: var
19 ! 2nd example: jumping out of BLOCK (valid)
25 ! 3rd example: jumping into BLOCK (invalid)
26 goto 99 ! { dg-warning "is not in the same block" }
28 99 continue ! { dg-warning "is not in the same block" }