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))
39 procedure(abs_fun) :: p
40 character(size(my_message),C_CHAR) :: c(size(a))
45 do l=1,size(my_message)
46 if (c(k)(l:l) /= achar(m)) call abort()
58 integer :: i(4) = (/0,6,12,18/)
60 allocate(my_message(1:6))
62 my_message = (/'a','b','c','d','e','f'/)
68 ! { dg-final { cleanup-modules "m" } }