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