! { dg-do compile } ! ! PR fortran/47569 ! ! Contributed by Jos de Kloe ! module teststr implicit none integer, parameter :: GRH_SIZE = 20, NMAX = 41624 type strtype integer :: size character :: mdr(NMAX) end type strtype contains subroutine sub2(string,str_size) integer,intent(in) :: str_size character,intent(out) :: string(str_size) string(:) = 'a' end subroutine sub2 subroutine sub1(a) type(strtype),intent(inout) :: a call sub2(a%mdr(GRH_SIZE+1),a%size-GRH_SIZE) end subroutine sub1 end module teststr