5 ! Original code by James Van Buskirk.
6 ! Modified by Janus Weil <janus@gcc.gnu.org>
12 character, allocatable
, save :: my_message(:)
19 character(size(my_message
),C_CHAR
) abs_fun(size(x
))
27 integer(C_INT
) :: y(:)
28 character(size(my_message
),C_CHAR
) :: foo(size(y
))
31 do j
=1,size(my_message
)
32 foo(i
)(j
:j
) = achar(iachar(my_message(j
))+y(i
))
40 procedure(abs_fun
) :: p
41 character(size(my_message
),C_CHAR
) :: c(size(a
))
46 do l
=1,size(my_message
)
47 if (c(k
)(l
:l
) /= achar(m
)) STOP 1
59 integer(C_INT
) :: i(4) = (/0,6,12,18/)
61 allocate(my_message(1:6))
63 my_message
= (/'a','b','c','d','e','f'/)