1! { dg-do compile }
2!
3      function kf()
4      integer kf
5      assign 1 to kf ! { dg-warning "Deleted feature: ASSIGN statement at" }
6      kf = 2
7      goto kf ! { dg-warning "Deleted feature: Assigned GOTO statement at" }
8      kf = 1
9 1    continue
10      kf = 0
11      end
12
13