! { dg-do compile }
!
! PR fortran/99817
!
! Contributed by G. Steinmetz
!
subroutine s1 (x)
   character(*) :: x(*)[*]
end

subroutine s2 (x)
   character(*), dimension(*), codimension[*] :: x
   integer :: i
   i = len(x)
end

subroutine s3 (x, y)
   character(*), dimension(:) :: x[*]
   character(*) :: y
end

subroutine s4 (x, y, z)
   character(*), dimension(:) :: x[2, *]
   character(*), dimension(*) :: y
   character(*) :: z
end