[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.ada / print_chars / foo.adb

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;
Commit	Line	Data
384e4a9c JB	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;