36 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12module m3 logical b4 bind(C) :: /cb2/5 common //t6 common /cb/ x(2:10) /cb2/a,b,c7 common /cb/ y,z8 common w9 common u,v10 complex w11 dimension b(4,4)12 bind(C, name="CB") /cb/13 common /b/ cb14end15 16!Expect: m.mod17!module m18! logical(4)::b(1_8:4_8,1_8:4_8)19! real(4)::t20! real(4)::x(2_8:10_8)21! real(4)::a22! real(4)::c23! real(4)::y24! real(4)::z25! real(4)::u26! real(4)::v27! complex(4)::w28! real(4)::cb29! common/cb/x,y,z30! bind(c, name="CB")::/cb/31! common/cb2/a,b,c32! bind(c)::/cb2/33! common/b/cb34! common//t,w,u,v35!end36