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