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