gcc/testsuite/gnat.dg/slice6.adb

   1 -- { dg-do compile }\r
   2 -- { dg-options "-gnatws" }\r
   3 \r
   4 with Slice6_Pkg; use Slice6_Pkg;\r
   5 \r
   6 procedure Slice6 is\r
   7 \r
   8   procedure Send (V_LENGTH : SHORT_INTEGER) is\r
   9 \r
  10     V : Integer;\r
  11 \r
  12     V_BLOCK : T_BLOCK (1 .. 4096);\r
  13     for V_BLOCK use at V'Address;\r
  14 \r
  15     V_MSG : T_MSG ;\r
  16 \r
  17   begin\r
  18     V_MSG := (V_LENGTH, 1, V_BLOCK (1 .. V_LENGTH));\r
  19   end;\r
  20 \r
  21 begin\r
  22   null;\r
  23 end;\r