1 -- RUN: %llvmgcc -S %s 2 with Ada.Finalization; 3 package Emit_Var is 4 type Search_Type is new Ada.Finalization.Controlled with null record; 5 end; 6