https://gcc.gnu.org/bugzilla/show_bug.cgi?id=106410
Bug ID: 106410
Summary: Internal compiler error: with nested parametrized
types
Product: gcc
Version: 12.1.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: s.lopez at brgm dot fr
Target Milestone: ---
Compiling the following code :
```
module M
type A(n)
integer, len :: n
real :: a(n)
end type
type B(n)
integer, len :: n
type(A(n)) :: as
end type
contains
! subroutine f(a, b)
! type(A(*)), intent(in) :: a
! type(B(a%n)), intent(out) :: b
! end subroutine
subroutine g(b)
type(B(*)), intent(in) :: b
end subroutine
end module
```
generates an internal compiler error, whereas uncommenting the commented lines
works fine.
