1 2 3 4 5 6 7 8
module first interface inner end interface inner end module first module second REAL :: C = 1 end module second