gcc/testsuite/gfortran.dg/pr17229.f

   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