26 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12module m3 character(2), parameter :: prefix = 'c_'4 integer, bind(c, name='c_a') :: a5 procedure(sub), bind(c, name=prefix//'b') :: b6 type, bind(c) :: t7 real :: c8 end type9contains10 subroutine sub() bind(c, name='sub')11 end12end13 14!Expect: m.mod15!module m16! character(2_4,1),parameter::prefix="c_"17! integer(4),bind(c, name="c_a")::a18! procedure(sub),bind(c, name="c_b")::b19! type,bind(c)::t20! real(4)::c21! end type22!contains23! subroutine sub() bind(c, name="sub")24! end25!end26