character*100 cl
      character*21 dept(0:5)
      dept(1)='works'
      ireg=1
      cl(1:20)=dept(ireg)//' dept('
      write(6,10)
  10  format(1h ,'f036 passed')
      stop
      end