1 2 3 4 5 6 7
subroutine dostat (lab) integer lab call indent (-1) call outcon (lab) call outcon (lab + 1) return end