Sign in
fuchsia
/
third_party
/
binutils-gdb
/
ff1431da4298944f787794f91a732c60f857d926
/
.
/
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
.