1dc453dcfSIvan Zhechev! RUN: %python %S/test_modfile.py %s %flang_fc1 264ab3302SCarolineConcattomodule m 364ab3302SCarolineConcatto logical b 464ab3302SCarolineConcatto bind(C) :: /cb2/ 564ab3302SCarolineConcatto common //t 664ab3302SCarolineConcatto common /cb/ x(2:10) /cb2/a,b,c 764ab3302SCarolineConcatto common /cb/ y,z 864ab3302SCarolineConcatto common w 964ab3302SCarolineConcatto common u,v 1064ab3302SCarolineConcatto complex w 1164ab3302SCarolineConcatto dimension b(4,4) 1264ab3302SCarolineConcatto bind(C, name="CB") /cb/ 1364ab3302SCarolineConcatto common /b/ cb 1464ab3302SCarolineConcattoend 1564ab3302SCarolineConcatto 1664ab3302SCarolineConcatto!Expect: m.mod 1764ab3302SCarolineConcatto!module m 1864ab3302SCarolineConcatto! logical(4)::b(1_8:4_8,1_8:4_8) 1964ab3302SCarolineConcatto! real(4)::t 2064ab3302SCarolineConcatto! real(4)::x(2_8:10_8) 2164ab3302SCarolineConcatto! real(4)::a 2264ab3302SCarolineConcatto! real(4)::c 2364ab3302SCarolineConcatto! real(4)::y 2464ab3302SCarolineConcatto! real(4)::z 2564ab3302SCarolineConcatto! real(4)::u 2664ab3302SCarolineConcatto! real(4)::v 2764ab3302SCarolineConcatto! complex(4)::w 2864ab3302SCarolineConcatto! real(4)::cb 2964ab3302SCarolineConcatto! common/cb/x,y,z 30f4faeefeSpeter klausler! bind(c, name="CB")::/cb/ 31b8bfe358STim Keith! common/cb2/a,b,c 32*69e2665cSPeter Klausler! bind(c)::/cb2/ 3364ab3302SCarolineConcatto! common/b/cb 3446ade6d0Speter klausler! common//t,w,u,v 3564ab3302SCarolineConcatto!end 36