mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
25 lines
559 B
Fortran
25 lines
559 B
Fortran
! { 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
|