{ test of scan errors for keywords}
$c+

module test6
private
 integer is,root,ent;
 Boolean x_,y_z, r_2_d_2_;
 integer ill__egal; { error: two adjacent underscores.}
 begin

 read root, ent;
 is := 55;
 x_ := true;
 y_z := is < root;
 ill__egal := 0; { illegal, but reported above }

 if   y_z  -> write 1;
 [] ~ y_z  -> write 0;
 fi;

end. { One scanning error. No need to run Sam or Macc}
