! {dg-do run }
!
! Tests the fix for PR82978 in which all the parameterized string
! lengths with the same value of parameter 'k' had the same value
! regardless of the value of 'l'. In this testcase, the length for
! 'l' = 5 was taken.
!
! Contributed by Fritz Reese  <foreese@gcc.gnu.org>
!
  implicit none

  type :: pdt_t(k, l)
    integer, kind :: k
    integer, len :: l
    character(kind=k,len=l) :: chr
    integer :: i(l)
  end type

  type(pdt_t(1, 4))   :: x1
  type(pdt_t(1, 5))   :: x2
  type(pdt_t(4, 5))   :: x3

  call test (x1, 4)
  call test (x2, 5)

! Kind tests appear because of problem identified in comment #!
! due to Dominque d'Humieres  <dominiq@lps.ens.fr>

  if (kind (x2%chr) .ne. 1) STOP 1
  if (kind (x3%chr) .ne. 4) STOP 2

contains

  subroutine test (x, i)
    type(pdt_t(1, *)) :: x
    integer :: i

    if (x%l .ne. i) STOP 3
    if (len(x%chr) .ne. i) STOP 4
    if (size(x%i,1) .ne. i) STOP 5
  end subroutine

end
