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'
131  end associate
14end
15