blob: 0921a12de7cf11cc06be194f2ac69b2312137056 [file] [log] [blame]
! { 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