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