- Код: Выделить всё
function TestALessThan5(A: LongInt): Boolean;
begin
if A >= 5 then
Exit(False);
end;
begin
Writeln(TestALessThan5(0));
end.
Компиляция:
- Код: Выделить всё
D:\data\temp>fpc -Sew e.pas && e.exe
Free Pascal Compiler version 3.0.4 [2017/10/06] for i386
Copyright (c) 1993-2017 by Florian Klaempfl and others
Target OS: Win32 for i386
Compiling e.pas
Linking e.exe
9 lines compiled, 0.0 sec, 25424 bytes code, 1252 bytes data
FALSE
Почему строгий компилятор, так старательно защищающий меня от отстрела ноги (в отличии от всяких других, нехороших компиляторов), не выдал варнинга? Это баг?