! { dg-do run } ! { dg-options "-std=gnu" } ! This test case exists because gfortran had an error in converting the ! expressions for the derived types from iso_c_binding in some cases. module c_ptr_tests_10 use, intrinsic :: iso_c_binding, only: c_ptr, c_null_ptr contains subroutine sub0() bind(c) print *, 'c_null_ptr is: ', c_null_ptr end subroutine sub0 end module c_ptr_tests_10 program main use c_ptr_tests_10 call sub0() end program main ! { dg-final { cleanup-modules "c_ptr_tests_10" } }