! { dg-lto-do link }
! { dg-lto-options { { -flto -g0 } } }
! { dg-extra-ld-options { -g } }
program nml_test
  implicit none
  type t
    integer :: c1
    integer :: c2(3)
  end type t
  call test2(2) 
contains
  subroutine test2(n)
    integer :: n
    type(t) :: x12(n)
    namelist /nml2/ x12
  end subroutine test2
end program nml_test