1 2 3 4 5 6 7
package Synchronized1 with SPARK_Mode, Abstract_State => (State with Synchronous), Initializes => State is procedure Force_Body; end Synchronized1;