error-coercion-flex-1.a68\compile\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/compile/error-coercion-flex-1.a68

blob: c556d703b40721e7bb1a20a20c09c8839536a4d1 (plain)

# { dg-options "-fstropping=upper" }  #

# Coercing from REF FLEX[]REAL to REF[]REAL is not allowed, since
  flexibility shall match #
BEGIN FLEX[1:0] REAL rowvar := SKIP;
      REF [] REAL xlm = rowvar; # { dg-error "FLEX.*cannot be coerced" }  #
      SKIP
END