gcc/testsuite/gnat.dg/assert2.ads


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

package Assert2
    with SPARK_Mode
is
   type Living is new Integer;
   function Is_Martian (Unused : Living) return Boolean is (False);

   function Is_Green (Unused : Living) return Boolean is (True);

   pragma Assert
     (for all M in Living => (if Is_Martian (M) then Is_Green (M)));
   pragma Assert
     (for all M in Living => (if Is_Martian (M) then not Is_Green (M)));

   procedure Dummy;
end Assert2;