! { dg-do compile } program foo !$acc update ! { dg-error "must contain at least one 'device' or 'host' or 'self' clause" } end program foo