-- test of scan errors for keywords
@c+

module test5
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;

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

end. -- One scanning error. 
