32 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12module m3 use iso_c_binding, only: c_ptr, c_null_ptr4 type foo5 type(c_ptr) :: p = c_null_ptr6 end type7 interface foo ! same name as derived type8 procedure f9 end interface10 contains11 type(foo) function f()12 end13end14 15!Expect: m.mod16!module m17!use,intrinsic::__fortran_builtins,only:__builtin_c_ptr18!use,intrinsic::iso_c_binding,only:c_ptr19!use,intrinsic::iso_c_binding,only:c_null_ptr20!private::__builtin_c_ptr21!type::foo22!type(c_ptr)::p=__builtin_c_ptr(__address=0_8)23!end type24!interface foo25!procedure::f26!end interface27!contains28!function f()29!type(foo)::f30!end31!end32