1*f1a8eae3SLuke Irelandmodule m 2*f1a8eae3SLuke Ireland integer :: m1_x 3*f1a8eae3SLuke Ireland interface 4*f1a8eae3SLuke Ireland module subroutine s() 5*f1a8eae3SLuke Ireland end subroutine 6*f1a8eae3SLuke Ireland end interface 7*f1a8eae3SLuke Irelandend 8*f1a8eae3SLuke Ireland 9*f1a8eae3SLuke Ireland!Expect: m.mod 10*f1a8eae3SLuke Ireland!module m 11*f1a8eae3SLuke Ireland!integer(4)::m1_x 12*f1a8eae3SLuke Ireland!interface 13*f1a8eae3SLuke Ireland!module subroutine s() 14*f1a8eae3SLuke Ireland!end 15*f1a8eae3SLuke Ireland!end interface 16*f1a8eae3SLuke Ireland!end 17