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

BEGIN INT a := 10;
      LONG INT l := a; # { dg-error "coerced" } #
      l
END