gdb/testsuite/gdb.pascal/hello.pas

   1 program hello;
   2
   3 var
   4   st : string;
   5
   6 procedure print_hello;
   7 begin
   8  Writeln('Before assignment'); { set breakpoint 1 here }
   9  st:='Hello, world!';
  10  writeln(st); {set breakpoint 2 here }
  11 end;
  12
  13 begin
  14   print_hello;
  15 end.