blob: 89de6b30c207183804810f808298059baadf2fe5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
{ Source provided for Free Pascal Bug Report 3174 }
{ Submitted by "C Western" on 2004-06-19 }
{ e-mail: mftq75@dsl.pipex.com }
program test;
procedure Mumble(s: PChar);
begin
WriteLn(s^);
if s^<>'A' then
halt(1);
end;
begin
Mumble('A');
end.
|
