3 works on record
Ada plus data structures
Building High Integrity Applications with SPARK
Building Parallel, Embedded, and Real-Time Applications with Ada