43 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12module m13 use iso_c_binding, only : c_ptr, c_null_ptr4 private5 public :: t16 type :: t17 type(c_ptr) :: c_ptr = c_null_ptr8 end type9end10 11!Expect: m1.mod12!module m113!use,intrinsic::__fortran_builtins,only:__builtin_c_ptr14!use,intrinsic::iso_c_binding,only:c_ptr15!use,intrinsic::iso_c_binding,only:c_null_ptr16!private::__builtin_c_ptr17!private::c_ptr18!private::c_null_ptr19!type::t120!type(c_ptr)::c_ptr=__builtin_c_ptr(__address=0_8)21!end type22!end23 24module m225 use m1, only : t126 private27 public :: t228 type :: t229 type(t1) :: x = t1()30 end type31end32 33!Expect: m2.mod34!module m235!use,intrinsic::__fortran_builtins,only:__builtin_c_ptr36!use m1,only:t137!private::__builtin_c_ptr38!private::t139!type::t240!type(t1)::x=t1(c_ptr=__builtin_c_ptr(__address=0_8))41!end type42!end43