Subversion Repositories openrisc

! { 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

! { dg-final { cleanup-modules "teststr" } }