1! RUN: %S/test_modfile.sh %s %t %f18 2module m 3 logical b 4 bind(C) :: /cb2/ 5 common //t 6 common /cb/ x(2:10) /cb2/a,b,c 7 common /cb/ y,z 8 common w 9 common u,v 10 complex w 11 dimension b(4,4) 12 bind(C, name="CB") /cb/ 13 common /b/ cb 14end 15 16!Expect: m.mod 17!module m 18! logical(4)::b(1_8:4_8,1_8:4_8) 19! real(4)::t 20! real(4)::x(2_8:10_8) 21! real(4)::a 22! real(4)::c 23! real(4)::y 24! real(4)::z 25! real(4)::u 26! real(4)::v 27! complex(4)::w 28! real(4)::cb 29! common//t,w,u,v 30! common/cb/x,y,z 31! bind(c, name="CB")::/cb/ 32! common/cb2/a,b,c 33! bind(c)::/cb2/ 34! common/b/cb 35!end 36