Sign in
gnu
/
binutils-gdb
/
58ca03a25dd2f2fc8df2cd0e70ed9e56ee1c56db
/
.
/
gdb
/
testsuite
/
gdb.pascal
/
hello.pas
blob: e43a1a408cc7196b10d35f28c149215f057ea9e9 [
file
] [
log
] [
blame
]
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
.