var_size.adb

   1 -- RUN: %llvmgcc -c %s -I%p/Support
   2 package body Var_Size is
   3    function A (X : T) return String is
   4    begin
   5       return X.A;
   6    end;
   7 end;