1! { dg-do compile }
2function return_char1(i) bind(c,name='return_char1')
3  use iso_c_binding
4  implicit none
5  integer(c_int) :: i
6  character(c_char) :: j
7  character(c_char) :: return_char1
8
9  j = achar(i)
10  return_char1 = j
11end function return_char1
12function return_char2(i) result(output) bind(c,name='return_char2')
13  use iso_c_binding
14  implicit none
15  integer(c_int) :: i
16  character(c_char) :: j
17  character(c_char) :: output
18
19  j = achar(i)
20  output = j
21end function return_char2
22function return_char3(i) bind(c,name='return_char3') result(output)
23  use iso_c_binding
24  implicit none
25  integer(c_int) :: i
26  character(c_char) :: j
27  character(c_char) :: output
28
29  j = achar(i)
30  output = j
31end function return_char3
32