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
      i=6
      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)
c      i=8
c      go to 50
c      write(6,300)i
c  300 format(' setting i to:',i4)
      stop
      END