1! RUN: %python %S/test_modfile.py %s %flang_fc1 2module m 3 use iso_c_binding, only: c_ptr, c_null_ptr 4 type foo 5 type(c_ptr) :: p = c_null_ptr 6 end type 7 interface foo ! same name as derived type 8 procedure f 9 end interface 10 contains 11 type(foo) function f() 12 end 13end 14 15!Expect: m.mod 16!module m 17!use,intrinsic::__fortran_builtins,only:__builtin_c_ptr 18!use,intrinsic::iso_c_binding,only:c_ptr 19!use,intrinsic::iso_c_binding,only:c_null_ptr 20!private::__builtin_c_ptr 21!type::foo 22!type(c_ptr)::p=__builtin_c_ptr(__address=0_8) 23!end type 24!interface foo 25!procedure::f 26!end interface 27!contains 28!function f() 29!type(foo)::f 30!end 31!end 32