1! { dg-do run } 2! { dg-options "-std=gnu" } 3! This test case exists because gfortran had an error in converting the 4! expressions for the derived types from iso_c_binding in some cases. 5module c_ptr_tests_10 6 use, intrinsic :: iso_c_binding, only: c_ptr, c_null_ptr 7 8contains 9 subroutine sub0() bind(c) 10 print *, 'c_null_ptr is: ', c_null_ptr 11 end subroutine sub0 12end module c_ptr_tests_10 13 14program main 15 use c_ptr_tests_10 16 call sub0() 17end program main 18