gcc/testsuite/gfortran.dg/pr37287-1.f90

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