r284@cf-ppc-macosx: monabuilder | 2008-12-07 10:57:41 +0900

[pf3gnuchains/pf3gnuchains4x.git] / gdb / testsuite / gdb.pascal / hello.pas

program hello;

var
  st : string;

procedure print_hello;
begin
 Writeln('Before assignment'); { set breakpoint 1 here }
 st:='Hello, world!'; 
 writeln(st); {set breakpoint 2 here }
end;

begin
  print_hello;
end.