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