Sign in
fuchsia
/
third_party
/
binutils-gdb
/
6e33da127bbc28caaebc507ab4ad4b4444e3a9a9
/
.
/
gdb
/
testsuite
/
gdb.ada
/
print_chars
/
foo.adb
blob: 761f5cbaf46b6fdff33daa3e48763e3e089ea4b7 [
file
] [
log
] [
blame
]
with
Pck
;
use
Pck
;
procedure
Foo
is
C
:
Character
:=
'a'
;
WC
:
Wide_Character
:=
'b'
;
WWC
:
Wide_Wide_Character
:=
'c'
;
begin
Do_Nothing
(
C
'Address); -- START
Do_Nothing (WC'
Address
);
Do_Nothing
(
WWC
'Address);
end Foo;