# { dg-options "-fstropping=upper" }  #
BEGIN SHORT INT j;
      j := "joo" { dg-error "CHAR.*SHORT INT" }
END