In the following code, a submodule makes explicit USE of it's parent module.
module forces
implicit none
type force
! type wrongly accesed via USE statement
end type force
type force_sensib
! type correctly accesed via HOST ssociation
contains
procedure,pass::fstb
end type force_sensib
interface
module subroutine fstb(FS)
class(force_sensib),intent(inout)::FS
end subroutine fstb
end interface
end module forces
submodule(forces) forces_sensib
use forces,only:force !Wrong sentence, triggering the problem.
implicit none
contains
module procedure fstb!(FS)
end procedure fstb
end submodule forces_sensib
The error offered by the compiler is confusing (an wrong).
error #6115: A separate interface body must have been declared in the program unit or an ancestor of the program unit for the separate module procedure. [FSTB]
compilation aborted for ... (code 1)
Clearly the problem is not the interface to FSTB, which is present and correctly placed in the module. The problem is the USE sentence in the submodule, but the compiler is unable to detect this.
I have been experiencing similar fake errors with submodules which makes really difficult to guess which are the errors in the code.
