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