------- Comment #1 from burnus at gcc dot gnu dot org 2009-09-16 07:41 ------- Hmm, I think it might be invalid. The follwing program is rejected as well and avoids one potential problem. Xia had some other examples which should also be checked after PR 41369 and - if valid - this PR is fixed.
module m type t integer,pointer :: i end type t contains character(len=mt%i) function foo(mt) type(t), intent(in) :: mt end function foo end module -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41370