path: root/unix/boot/spp/rpp/rppfor/baderr.f

subroutine baderr (msg)
      integer msg (100)
      call synerr (msg)
      call endst
      end