2 function return_char1(i) bind(c,name='return_char1')
7 character(c_char) :: return_char1
11 end function return_char1
12 function return_char2(i) result(output) bind(c,name='return_char2')
16 character(c_char) :: j
17 character(c_char) :: output
21 end function return_char2
22 function return_char3(i) bind(c,name='return_char3') result(output)
26 character(c_char) :: j
27 character(c_char) :: output
31 end function return_char3