1! { dg-do compile } 2! 3! PR fortran/47569 4! 5! Contributed by Jos de Kloe 6! 7module teststr 8 implicit none 9 integer, parameter :: GRH_SIZE = 20, NMAX = 41624 10 type strtype 11 integer :: size 12 character :: mdr(NMAX) 13 end type strtype 14contains 15 subroutine sub2(string,str_size) 16 integer,intent(in) :: str_size 17 character,intent(out) :: string(str_size) 18 string(:) = 'a' 19 end subroutine sub2 20 subroutine sub1(a) 21 type(strtype),intent(inout) :: a 22 call sub2(a%mdr(GRH_SIZE+1),a%size-GRH_SIZE) 23 end subroutine sub1 24end module teststr 25