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


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

#-h-  baderr			  144  local   12/01/80  15:53:45
# baderr --- report fatal error message, then die
   include  defs

   subroutine baderr (msg)

   character msg (ARB)
#      character*(*) msg

   call synerr (msg)
   call endst
   end