1subroutine foo(i,c)
2character c
3integer i
4character(1),parameter :: hex_chars(0:15)=&
5 (/'0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'/)
6
7c = hex_chars(i)
8end
9
10program strarray_2
11 character c
12 call foo(3,c)
13 if (c.ne.'3') STOP 1
14end
15