gcc/testsuite/gnat.dg/addr1.adb

   1 with System;
   2 package body addr1 is
   3    task type T is
   4       entry Send (Location : System.Address);
   5    end;
   6    task body T is
   7    begin
   8       accept Send (Location : System.Address) do
   9         declare
  10            Buffer : String (1 .. 100);
  11            for Buffer'Address use Location;  --  Test
  12         begin
  13            null;
  14         end;
  15      end Send;
  16    end;
  17 end;