5 ! Contributed by Harald Anlauf
10 integer, parameter :: n
= 8
12 character(len
=1), dimension(n
) :: a
, b
13 character(len
=n
) :: s
, t
14 character(len
=n
/2) :: u
17 a(i
) = achar (i
-1 + iachar("a"))
19 ! print *, "# Forward:"
24 ! print *, " stride = +2:"
29 call cmp (a(1:n
:2), u
)
31 ! print *, "# Backward:"
37 ! print *, " stride = -1:"
38 call cmp (a(n
:1:-1), t
)
41 character(len
=1), dimension(:), intent(in
) :: b
42 character(len
=*), intent(in
) :: s
43 character(len
=size(b
)) :: c
46 print *, "c=", c
, " ", merge (" ok","BUG!", c
== s
)