[deliverable/binutils-gdb.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.
Commit	Line	Data
a912286e DJ	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.