flat-assignation-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/flat-assignation-1.a68

blob: bf973564b1f5a0692aa683240a7b914ac206a99c (plain)

{ Assigning to the flexible name replaces the descriptor
  as well as the elements.  }
begin [10:0]int flat1;
      flex[10:-10]int flat2;
      flat2 := flat1;
      assert (UPB flat2 = 0 AND LWB flat2 = 10)
end