! Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
! See https://llvm.org/LICENSE.txt for license information.
! SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
!
! test host's memory arguments in an internal procedure
!

module foo
  contains 
    subroutine sub(result,d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14)
      integer result(:)
      integer d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14
      integer l1
      l1 = 25
      call csub
    contains
      subroutine csub()
	result(1) = d1
	result(2) = d2
	result(3) = d3
	result(4) = d4
	result(5) = d5
	result(6) = d6
	result(7) = d7
	result(8) = d8
	result(9) = d9
	result(10) = d10
	result(11) = d11
	result(12) = d12
	result(13) = d13
	result(14) = d14
	result(15) = l1
      end subroutine
    end subroutine
end module
  
program p
use foo
  integer result(15)
  integer expect(15)
  data expect/ 11,12,13,14,15,16,17,18,19,20,21,22,23,24,25/

  call sub(result,11,12,13,14,15,16,17,18,19,20,21,22,23,24)
  call check(result,expect,15)
end