selection-5.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/selection-5.a68

blob: fde72d53ade51c424f0dbb0bab7497e4cc989c35 (plain)

# { dg-options "-fstropping=upper" }  #
# pr UPPER pr  #
BEGIN MODE JORL = STRUCT (INT i, REAL r);
      REF JORL jorl = LOC JORL := (10, 3.14);
      ASSERT (i OF jorl = 10)
END