multab-3.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/multab-3.a68

blob: 87d7f42b80b1f6a1fddc35a2484bf5c2111e6f38 (plain)

# { dg-options "-fstropping=upper" }  #
BEGIN INT num ints := 10;
      num ints *:= 2;
      ASSERT (num ints = 20);
      ASSERT ((LOC INT *:= 12) = 0)
END