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