https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84088
--- Comment #2 from Tom de Vries <vries at gcc dot gnu.org> --- Minimal version: ... ! { dg-do run } module vars implicit none integer z !$acc declare create (z) end module vars program main use vars use openacc implicit none if (acc_is_present (z) .neqv. .true.) call abort end program ...