1 2 3 4 5
# { dg-options "-fstropping=upper" } # BEGIN INT a; a := "foo" # { dg-error "cannot be coerced" } # END