mirror of
https://github.com/espressif/binutils-gdb.git
synced 2025-09-21 13:16:33 +08:00
12 lines
239 B
Ada
12 lines
239 B
Ada
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;
|