Program rtc_pdt_len_params
  Implicit None
  Type t(k)
    Integer,Len :: k
    Real c(k)
  End Type
  Type(t(7)) x
  x%c = [ 1,2,3,4,5,6,7 ]
  Call test(x)
Contains
  Subroutine test(y)
    Type(t(*)),Intent(In) :: y
    Type(t(10)) :: z
    Integer i
    z = y
    Do i=1,10
      Print *,z%c(i)
    End Do
  End Subroutine
End Program