1! PR fortran/17229
2! { dg-do run }
3
4      integer i
5      logical l
6
7      l = .false.
8      i = -1
9      if (l) if (i) 999,999,999 ! { dg-warning "Obsolescent feature" }
10
11      l = .true.
12      if (l) if (i) 10,999,999 ! { dg-warning "Obsolescent feature" }
13      go to 999
14
15   10 i = 0
16      if (l) if (i) 999,20,999 ! { dg-warning "Obsolescent feature" }
17      go to 999
18
19   20 i = 1
20      if (l) if (i) 999,999,30 ! { dg-warning "Obsolescent feature" }
21      go to 999
22
23  999 call abort
24   30 end
25