mirror of
https://github.com/bminor/binutils-gdb.git
synced 2025-12-05 23:23:09 +00:00
45311dce11
This is the result of: ... $ git rm -rf gdb/testsuite $ git commit -a -m tmp $ git revert HEAD $ git rebase --whitespace=fix HEAD^ ... Tested on x86_64-linux. PR build/33616 Bug: https://sourceware.org/bugzilla/show_bug.cgi?id=33616
16 lines
215 B
ObjectPascal
16 lines
215 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.
|