
{: test that wrong characters in hexadecimal number cause a compilation error }

program e1007( output );

var
   x    : real;
   i    : integer;
   pass : boolean;
begin
   i := $g000000f;
   x := 12.5;
   writeln( 'x is ', x:1:1, ', i is ', i:1 );
   writeln( 'hexadecimal format error not detected' );
end. { e1007 }

