35 lines · plain
1! RUN: %flang_fc1 -fopenacc %s2 3! Check common block resolution.4! Check that symbol are correctly resolved in device, host and self clause.5 6subroutine sub(a)7 implicit none8 real :: a(10)9 real :: b(10), c(10), d10 common/foo/ b, d, c11 integer :: i, n12 13 !$acc declare present(/foo/)14 !$acc parallel loop gang vector15 do i = 1, n16 b(i) = a(i) + c(i) * d17 end do18end subroutine19 20program test_resolve0421 real :: a(10), b(10)22 common /foo/ b, c23 24!$acc data create(/foo/)25!$acc update device(/foo/)26!$acc update host(/foo/)27!$acc update self(/foo/)28!$acc end data29 30!$acc data copy(/foo/)31!$acc end data32 33end34 35