Program rtc_pdtbounds
  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
    Integer i
    Do i=1,10
      Print *,y%c(i)
    End Do
  End Subroutine
End Program