gdb/testsuite/gdb.pascal/hello.pas


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

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.