aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/algol68/compile/error-coercion-1.a68
blob: d0e24821f27938ed20ffbe95f5987662c39a7b3b (plain)
1
2
3
4
5
# { dg-options "-fstropping=upper" }  #

BEGIN INT a;
      a := "foo" # { dg-error "cannot be coerced" } #
END