mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 11:22:50 +02:00
8c96fbed8f
ninl.pas, tinlinenode: * pass_typecheck: let code pass on to simplify() for undefineddefs in Low() and High() * simplify: create a constant 0 as fallback + added test git-svn-id: trunk@33884 -
19 lines
233 B
ObjectPascal
19 lines
233 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw28832;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
generic procedure Test<T>(AValue : T);
|
|
begin
|
|
WriteLn(Low(AValue));
|
|
WriteLn(Low(T));
|
|
WriteLn(High(AValue));
|
|
WriteLn(High(T));
|
|
end;
|
|
|
|
begin
|
|
specialize Test<Integer>(0);
|
|
end.
|
|
|