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