aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/algol68/compile/error-coercion-flex-1.a68
blob: c556d703b40721e7bb1a20a20c09c8839536a4d1 (plain)
1
2
3
4
5
6
7
8
# { 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