flex-2.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/flex-2.a68

blob: 4f18674bc886633a827d7f0ecc6839a92a606101 (plain)

# { dg-options "-fstropping=upper" }  #
# Rowing to flexible rows.  #
BEGIN FLEX[]INT list = 10;
      ASSERT (list[1] = 10);
      FLEX[,]INT table = 10;
      ASSERT (table[1,1] = 10)
END