gcc/testsuite/gfortran.dg/pr17229.f

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