https://gcc.gnu.org/bugzilla/show_bug.cgi?id=101328
--- Comment #1 from G. Steinmetz <gs...@t-online.de> ---
Additional cases :
$ cat z3.f90
module m
type t
integer :: a = 1
end type
contains
subroutine s(x)
type(t), intent(out) :: x(..)
end
end
$ cat z5.f90
module m
type t
integer :: a
integer :: b = 1
end type
contains
subroutine s(x)
type(t), intent(out) :: x(..)
end
end
$ cat zz1.f90
program p
type t(n)
integer, len :: n = 1
integer :: a = 1
integer :: b(n) = 1
end type
contains
subroutine s(x)
type(t(2)), intent(out) :: x(..)
end
end
