gdb/testsuite/gdb.ada/print_chars/foo.adb

   1 with Pck; use Pck;
   2
   3 procedure Foo is
   4    C : Character := 'a';
   5    WC : Wide_Character := 'b';
   6    WWC : Wide_Wide_Character := 'c';
   7 begin
   8    Do_Nothing (C'Address);  -- START
   9    Do_Nothing (WC'Address);
  10    Do_Nothing (WWC'Address);
  11 end Foo;