gcc/testsuite/gfortran.dg/pr83149.f90


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