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