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