widening-bits-1.a68\execute\algol68\testsuite\gcc - riscv-gnu-toolchain/gcc.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/gcc.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

path: root/gcc/testsuite/algol68/execute/widening-bits-1.a68

blob: 6940a23cb36e131e62d59e7541b35546e825932f (plain)

# { dg-options "-fstropping=upper" }  #
# XXX use environment enquiry for actual size of BITS #
BEGIN []BOOL foo = 16rffff;
      ASSERT (LWB foo = 1 AND UPB foo = 32);
      FOR i TO 16 DO ASSERT (foo[i] = FALSE) OD;
      FOR i FROM 17 TO 32 DO ASSERT (foo[i] = TRUE) OD
END