gcc/testsuite/gfortran.dg/c_ptr_tests_10.f03

   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.
   5 module c_ptr_tests_10
   6   use, intrinsic :: iso_c_binding, only: c_ptr, c_null_ptr
   7
   8 contains
   9   subroutine sub0() bind(c)
  10     print *, 'c_null_ptr is: ', c_null_ptr
  11   end subroutine sub0
  12 end module c_ptr_tests_10
  13
  14 program main
  15   use c_ptr_tests_10
  16   call sub0()
  17 end program main
  18
  19 ! { dg-final { cleanup-modules "c_ptr_tests_10" } }