gcc/testsuite/gnat.dg/ghost2.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14

package Ghost2 is
   type Val_Entry is (A, B, C, D);

   function Transition_Valid (L : Val_Entry; R : Val_Entry) return Boolean
   is ((L = B and R = C) or
       (L = C and R = C) or
       (L = C and R = D) or
       (L = D and R = B))
     with Ghost;

   procedure Set;

   type Val_Array is array (1 .. 5) of Val_Entry;
end Ghost2;