paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 10:49:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

New test file

Browse Source
This commit is contained in:
pierre 2001-10-02 22:31:44 +00:00
parent 33d411b2dc
commit 3badb147ef
1 changed files with 48 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
tests/webtbs/tw1623.pp Normal file
View File

@ -0,0 +1,48 @@
{ Source provided for Free Pascal Bug Report 1623 }
{ Submitted by "Henrik C. Jessen" on 2001-09-28 }
{ e-mail: henrik.jessen@nettest.com }
PROGRAM Test;
{$inline on}
FUNCTION fnc(x: integer): integer; INLINE;
BEGIN
fnc:=x*2;
END;
FUNCTION lfnc(x: longint): longint; INLINE;
BEGIN
lfnc:=x*2;
END;
VAR
i: Integer;
j : longint;
BEGIN
i:=4;
if fnc(i)<>8 then
Begin
Writeln('Error in inlined integer functions');
RunError(1);
End;
j:=4;
if lfnc(j)<>8 then
Begin
Writeln('Error in inlined longint functions');
RunError(1);
End;
j:=lfnc(lfnc(4));
if j<>16 then
Begin
Writeln('Error in inlined longint functions twice');
RunError(1);
End;
i:=fnc(fnc(4));
if i<>16 then
Begin
Writeln('Error in inlined integer functions twice');
RunError(1);
End;
END.