Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
algol68
/
compile
/
error-coercion-flex-1.a68
blob: c556d703b40721e7bb1a20a20c09c8839536a4d1 [
file
]
# { 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