unix/boot/spp/rpp/rpprat/dostat.r


1
2
3
4
5
6
7
8
9
10
11
12
13

#-h-  dostat			  156  local   12/01/80  15:53:50
# dostat - generate code for end of do statement
   include  defs

   subroutine dostat (lab)

   integer lab

   call indent (-1)
   call outcon (lab)
   call outcon (lab + 1)
   return
   end