1! PR debug/37287
2! { dg-do link }
3! { dg-options "-g -DPR37287_1" }
4! { dg-additional-sources pr37287-2.F90 }
5module pr37287_1
6  use iso_c_binding, only : c_ptr, c_associated, c_null_ptr
7  implicit none
8contains
9  subroutine set_null(ptr)
10      type(c_ptr), intent(out) :: ptr
11      ptr = c_null_ptr
12  end subroutine set_null
13end module pr37287_1
14end
15! { dg-final { cleanup-modules "pr37287_2" } }
16