gcc/testsuite/gfortran.dg/pr17229.f

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