tweak flang usm test to make it an array
program test
- integer :: i
- i = 0
+ integer :: i(5)
+ i(2) = 0
!$omp requires unified_shared_memory
!$omp target
- i = 1
+ i(2) = 1
!$omp end target
- if (i .ne. 1) then
+ if (i(2) .ne. 1) then
print *,'failed'
call exit(1)
endif
