mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
9 lines
158 B
ObjectPascal
9 lines
158 B
ObjectPascal
{ %FAIL }
|
|
{ Should not give an internal error anymore }
|
|
{ Bug report submitted by Alexander S. Klenin }
|
|
{ 2012-03-26 }
|
|
|
|
begin
|
|
Writeln(1/Abs(1) mod 1);
|
|
end.
|