old-cross-binutils/gdb/testsuite/gdb.pascal/hello.pas
Daniel Jacobowitz a912286e38 2007-10-08 Pierre Muller <muller@ics.u-strasbg.fr>
Daniel Jacobowitz  <dan@codesourcery.com>

	* Makefile.in (ALL_SUBDIRS): Add gdb.pascal.
	* configure.ac (AC_OUTPUT): Add gdb.pascal/Makefile.
	* configure: Regenerated.
	* gdb.pascal/Makefile.in, gdb.pascal/hello.exp, gdb.pascal/hello.pas,
	gdb.pascal/types.exp, lib/pascal.exp: New files.
2007-10-08 12:41:25 +00:00

15 lines
217 B
ObjectPascal

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.