| -- { dg-do compile } | |
| with Text_IO; use Text_IO; | |
| procedure Deferred_Const1 is | |
| I : Integer := 16#20_3A_2D_28#; | |
| S : constant string(1..4); | |
| for S'address use I'address; -- { dg-warning "constant overlays a variable" } | |
| pragma Import (Ada, S); | |
| begin | |
| Put_Line (S); | |
| end; |