Sign in
gnu
/
binutils-gdb
/
1284c2264cca5c848e2f9622ea53e42c97e4e838
/
.
/
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
.