protected type Interrupt_Metal is
       entry Read;
       procedure Handler;
    private
        Interrupt_Occurred : Boolean := False;
    end Interrupt_Metal;


    protected body Interrupt_Metal is
        entry Read
        when Interrupt_Occurred is
                begin
                    --Put_line("I have an interrupt - clearing");
                    Interrupt_Occurred := False;
        end Read;

        procedure Handler is
        begin
            Put_line("handler for metal called");
                Interrupt_Occurred := True;
        end Handler;
    end Interrupt_Metal;
    MetalIH : Interrupt_Metal;