blob: 0921a12de7cf11cc06be194f2ac69b2312137056 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
! { 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
|
