mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
29d4037a9c
resulttype of the div node set by the type checking pass, this is also how the generic code generator handles it, resolves #27173 git-svn-id: trunk@29382 -
17 lines
145 B
ObjectPascal
17 lines
145 B
ObjectPascal
program error;
|
|
|
|
{$mode Delphi}
|
|
|
|
uses sysutils;
|
|
|
|
type a = 1..MaxInt;
|
|
|
|
var b: a;
|
|
c: integer;
|
|
|
|
begin
|
|
b := 3;
|
|
c := -5 div b;
|
|
writeln(c);
|
|
end.
|