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