------- Comment #14 from janus at gcc dot gnu dot org 2010-01-17 21:34 -------
(In reply to comment #10)
> mod1
> 1
> Error: Unclassifiable statement at (1)
Sorry, this is due to a wrapped comment in comment #8. Let's try it again:
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()
end function
end module
module mod3
contains
subroutine sub(a)
use mod2, only: my_get
use mod1, only: t1
type(t1) :: a
end subroutine
end module
use mod2, only: my_get
use mod3, only: sub
end
This fails with the same error message as comment #1 (with "use psb_error_mod"
removed). PLUS, it ICEs also with 4.4. So, no regression.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=42769
