Recently I try to use submodule. But My compiler return a error of code 6122. There is a module and its sub module.
module nonuni
implicit none
interface
module function get_subarray(a,i,j)
implicit none
real,target::a(:)
integer::i,j
real,pointer::get_subarray(:)
endfunction
end interface
endmodule
submodule(nonuni) nonunis
implicit none
contains
module function get_subarray(a,i,j)
implicit none
real,target::a(:)
integer::i,j
real,pointer::get_subarray(:)
get_subarray=>a(i:j)
endfunction
end submodule
submodule(nonuni) nonunis
implicit none
contains
module function get_subarray(a,i,j)
implicit none
real,target::a(:)
integer::i,j
real,pointer::get_subarray(:)
get_subarray=>a(i:j)
endfunction
end submodule
Then the compiler returned
error #6122: The characteristics of the separate module procedure differ from those specified in the separate interface body. [GET_SUBARRAY].
Then I tried another form.
module nonuni
implicit none
interface
module function get_subarray(a,i,j) result(asub)
implicit none
real,target::a(:)
integer::i,j
real,pointer::asub(:)
endfunction
end interface
endmodule
submodule(nonuni) nonunis
implicit none
contains
module function get_subarray(a,i,j) result(asub)
implicit none
real,target::a(:)
integer::i,j
real,pointer::asub(:)
asub=>a(i:j)
endfunction
end submodule
It was compiled successfully.
