1! Compiled with pr83149_1.f90 2! 3module mod1 4 integer :: ncells 5end module 6 7module mod2 8contains 9 function get() result(array) 10 use mod1 11 real array(ncells) 12 array = 1.0 13 end function 14end module 15