gcc/testsuite/gm2/iso/const/pass/constbool4.mod


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

MODULE constbool4 ;


CONST
   World = "W" + "o" + "r" + "l" + "d" ;
   Hello = "Hello" + " " + World ;
   AddressableBits = 32 ;
   MaxBits         = 32 ;

   BitsInUse =
    ORD(AddressableBits > MaxBits) * MaxBits +
    ORD(AddressableBits <= MaxBits) * AddressableBits +
    ORD (LENGTH (Hello) = 15) ;

BEGIN

END constbool4.