gcc/testsuite/gfortran.dg/c_ptr_tests_7.f03

   1 ! { dg-do run }
   2 ! { dg-additional-sources c_ptr_tests_7_driver.c }
   3 module c_ptr_tests_7
   4   use, intrinsic :: iso_c_binding, only: c_ptr, c_null_ptr
   5
   6 contains
   7   function func0() bind(c)
   8     type(c_ptr) :: func0
   9     func0 = c_null_ptr
  10   end function func0
  11 end module c_ptr_tests_7
  12 ! { dg-final { cleanup-modules "c_ptr_tests_7" } }