------- Comment #10 from hjl dot tools at gmail dot com 2010-01-17 21:18
-------
(In reply to comment #8)
> Here is a reduced test case:
>
> module mod1
> type :: t1
> contains
> procedure, nopass :: get => my_get
> end type
> contains
> logical function my_get()
> end function
> end module
>
> module mod2
> contains
> logical function my_get() ! must have the same name as the function in
> mod1
> end function
> end module
>
> module mod3
> contains
> subroutine sub(a)
> use mod2, only: my_get
> use mod1, only: t1 ! order of use statements is important
> type(t1) :: a ! 'a' must be dummy
> end subroutine
> end module
>
>
> use mod2, only: my_get
> use mod3, only: sub ! order of use statements is important
> end
>
I got
pr42769-2.f90:14:
mod1
1
Error: Unclassifiable statement at (1)
pr42769-2.f90:21.26:
use mod2, only: my_get
1
Fatal Error: Can't open module file 'mod2.mod' for reading at (1): No such file
or directory
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=42769
