program labs
      call labels
      do 10 i=1,5
      j=i*2
      if( j.gt.10) goto 20
  10  continue
      goto 30
  20  call sub1
      goto 40
  30  print*,j
  40  stop
      end
      subroutine sub1
      return
      end