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