1-- RUN: %llvmgcc -S %s -I%p/Support 2package body Var_Offset is 3 function F (X : T) return Character is 4 begin 5 return X.Bad_Field; 6 end; 7end; 8