! { dg-do compile { target skip-all-targets } } 

! Test XFAILed due to https://gcc.gnu.org/PR115271


subroutine base_proc (a)
   use iso_c_binding, only: c_ptr
   type(c_ptr), intent(inout) :: a
end subroutine

program main
   use iso_c_binding, only: c_ptr
   use my_mod
   implicit none

   type(c_ptr) :: a


   call base_proc(a)
   !call variant_proc(a)

   !$omp dispatch
   call base_proc(a)

end program main