do 20 i=1,10
   50 write(6,100)i
  100 format(' in loop:i=',i4)
      if(i.gt.4.and.i.lt.8)go to 30
c      i=6
c      write(6,150)i
  150 format(' in loop, setting i to:',i4)
   20 continue
      stop
   30 write(6,200)i
  200 format(' outside loop:i=',i4)
      i=8
      write(6,300)i
  300 format(' setting i to:',i4)
      go to 50
      stop
      END