* gimplify.c (gimplify_decl_expr): For a TYPE_DECL, also gimplify the

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gnat.dg / itype.adb

package body itype is
   function G return not null access constant T is
      X : aliased T;
   
   begin
      return X'Unchecked_Access;
   end G;
end itype;