1dc453dcfSIvan Zhechev! RUN: %python %S/test_modfile.py %s %flang_fc1 264ab3302SCarolineConcattomodule m 364ab3302SCarolineConcatto character(2), parameter :: prefix = 'c_' 464ab3302SCarolineConcatto integer, bind(c, name='c_a') :: a 5*3fa62efdSPeixin Qiao procedure(sub), bind(c, name=prefix//'b') :: b 664ab3302SCarolineConcatto type, bind(c) :: t 764ab3302SCarolineConcatto real :: c 864ab3302SCarolineConcatto end type 964ab3302SCarolineConcattocontains 1064ab3302SCarolineConcatto subroutine sub() bind(c, name='sub') 1164ab3302SCarolineConcatto end 1264ab3302SCarolineConcattoend 1364ab3302SCarolineConcatto 1464ab3302SCarolineConcatto!Expect: m.mod 1564ab3302SCarolineConcatto!module m 16f4faeefeSpeter klausler! character(2_4,1),parameter::prefix="c_" 17f4faeefeSpeter klausler! integer(4),bind(c, name="c_a")::a 18*3fa62efdSPeixin Qiao! procedure(sub),bind(c, name="c_b")::b 1964ab3302SCarolineConcatto! type,bind(c)::t 2064ab3302SCarolineConcatto! real(4)::c 2164ab3302SCarolineConcatto! end type 2264ab3302SCarolineConcatto!contains 23f4faeefeSpeter klausler! subroutine sub() bind(c, name="sub") 2464ab3302SCarolineConcatto! end 2564ab3302SCarolineConcatto!end 26