flang/test/Semantics/modfile68.f90

! RUN: %python %S/test_modfile.py %s %flang_fc1
module m1
  use iso_c_binding, only : c_ptr, c_null_ptr
  private
  public :: t1
  type :: t1
    type(c_ptr) :: c_ptr = c_null_ptr
  end type
end

!Expect: m1.mod
!module m1
!use,intrinsic::__fortran_builtins,only:__builtin_c_ptr
!use,intrinsic::iso_c_binding,only:c_ptr
!use,intrinsic::iso_c_binding,only:c_null_ptr
!private::__builtin_c_ptr
!private::c_ptr
!private::c_null_ptr
!type::t1
!type(c_ptr)::c_ptr=__builtin_c_ptr(__address=0_8)
!end type
!end

module m2
  use m1, only : t1
  private
  public :: t2
  type :: t2
    type(t1) :: x = t1()
  end type
end

!Expect: m2.mod
!module m2
!use,intrinsic::__fortran_builtins,only:__builtin_c_ptr
!use m1,only:t1
!private::__builtin_c_ptr
!private::t1
!type::t2
!type(t1)::x=t1(c_ptr=__builtin_c_ptr(__address=0_8))
!end type
!end