-- RUN: %llvmgcc -c %s -I%p/Support
package body Var_Size is
function A (X : T) return String is
begin
return X.A;
end;