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; |