gcc/testsuite/gnat.dg/addr1.adb

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