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