Sign in
chromium
/
native_client
/
nacl-toolchain
/
gcc-4.4.3
/
.
/
gdb
/
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
.