31 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12! Test derived type renaming in initializers necessary to avoid3! clashing with local names4module m5 use, intrinsic :: iso_c_binding, only: &6 c_ptr, c_funptr, c_null_ptr, c_null_funptr7 real, private :: __builtin_c_ptr, __builtin_c_funptr8 type mydt9 type(c_funptr) :: component = c_null_funptr10 end type11 type(c_ptr), parameter :: namedConst = c_null_ptr12end13 14!Expect: m.mod15!module m16!use,intrinsic::__fortran_builtins,only:__fortran_builtins$__builtin_c_ptr=>__builtin_c_ptr17!use,intrinsic::__fortran_builtins,only:__fortran_builtins$__builtin_c_funptr=>__builtin_c_funptr18!use,intrinsic::iso_c_binding,only:c_ptr19!use,intrinsic::iso_c_binding,only:c_funptr20!use,intrinsic::iso_c_binding,only:c_null_ptr21!use,intrinsic::iso_c_binding,only:c_null_funptr22!private::__fortran_builtins$__builtin_c_ptr23!private::__fortran_builtins$__builtin_c_funptr24!real(4),private::__builtin_c_ptr25!real(4),private::__builtin_c_funptr26!type::mydt27!type(c_funptr)::component=__fortran_builtins$__builtin_c_funptr(__address=0_8)28!end type29!type(c_ptr),parameter::namedconst=__fortran_builtins$__builtin_c_ptr(__address=0_8)30!end31