blob: b8d5f8f581e27e44aa3aecafa5e0c19053f7aca6 [file] [log] [blame]
-- RUN: %llvmgcc -c %s -o /dev/null
with Ada.Finalization;
package Emit_Var is
type Search_Type is new Ada.Finalization.Controlled with null record;
end;