1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
program arrays_08_func
implicit none
integer :: x(10), y(10), i
logical :: r
do i = 1, size(x)
x(i) = i
end do
call copy_from_to(x, y)
r = verify(x, y)
print *, r
if (.not. r) error stop
contains
subroutine copy_from_to(a, b)
integer, intent(in) :: a(:)
integer, intent(out) :: b(:)
integer :: i
do i = 1, size(a)
b(i) = a(i)
end do
end subroutine
logical function verify(a, b) result(r)
integer, intent(in) :: a(:), b(:)
integer :: i
r = .true.
do i = 1, size(a)
r = r .and. (a(i) .eq. b(i))
end do
end function
end
|
