gcc/testsuite/gfortran.dg/c_ptr_tests_9.f03

   1 ! { dg-do run }
   2 ! { dg-options "-std=gnu" }
   3 ! This test is pretty simple but is here just to make sure that the changes
   4 ! done to c_ptr and c_funptr (translating them to void *) works in the case
   5 ! where a component of a type is of type c_ptr or c_funptr.
   6 module c_ptr_tests_9
   7   use, intrinsic :: iso_c_binding, only: c_ptr, c_null_ptr
   8
   9   type myF90Derived
  10      type(c_ptr) :: my_c_ptr
  11   end type myF90Derived
  12
  13 contains
  14   subroutine sub0() bind(c)
  15     type(myF90Derived), target :: my_f90_type
  16     type(myF90Derived), pointer :: my_f90_type_ptr
  17
  18     my_f90_type%my_c_ptr = c_null_ptr
  19     print *, 'my_f90_type is: ', my_f90_type
  20     my_f90_type_ptr => my_f90_type
  21     print *, 'my_f90_type_ptr is: ', my_f90_type_ptr
  22   end subroutine sub0
  23 end module c_ptr_tests_9
  24
  25
  26 program main
  27   use c_ptr_tests_9
  28
  29   call sub0()
  30 end program main
  31
  32 ! { dg-final { cleanup-modules "c_ptr_tests_9" } }