1! PR fortran/71705
2! { dg-do compile }
3
4  real :: x
5  x = 0.0
6  !$omp target update to(x)
7end
8