! { dg-do compile } | |
! | |
! PR fortran/94120 | |
! | |
! Note: BLOCK is not supported in OpenACC <= 3.0 – but the following check comes earlier: | |
! It is also invalid because the variable is in a different scoping unit | |
! | |
subroutine g() | |
integer :: k | |
block | |
!$acc declare copy(k) ! { dg-error "Variable 'k' shall be declared in the same scoping unit as !.ACC DECLARE" } | |
end block | |
end |