blob: f6bcff82baee232d539dc57d939103683f7bdf83 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{$inline on}
procedure test(v:boolean);
procedure notice(s:string);inline;
begin
writeln(s);
end;
begin
if v then notice('this string vanishes.');
writeln('"test" main body executed.');
end;
begin
writeln('testing with True...');
test(true);
writeln;
writeln('testing with False...');
test(false);
end.
|
