package Gmface.Gm_Virtual.Gmidi.Gmidi_Work is type Gmidi_Work_Record is new Work_Class with record null; end record; end Gmface.Gm_Virtual.Gmidi.Gmidi_Work;