#!/usr/bin/perl

$fun= "";
$err= undef;
$stt= 1;

while (<>) {
   $nst= /^[^: ]*:\d*:/;
   if ($stt && !$nst) {
      print $fun, $err  if (defined $fun && length $err);
      $fun= undef; $err= undef;
   }
   $stt= $nst;

   if ($stt) {
      $err .= $_  if (!/suggest par.*truth value/ &&
		      !/multi-char.*const/ &&
		      !/compar.*sign.*unsign/);
   }
   else {
      $fun .= $_;
   }
}

print $fun, $err  if (defined $fun && length $err);

exit 0;

   
