1! { dg-do compile }
2!
3! PR fortran/50071
4! A label in an END BLOCK 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   block
10      goto 1
11      print *, 'Hello'
121  end block
13end
14
15