gcc/testsuite/gfortran.dg/bind_c_usage_19.f90

   1 ! { dg-do compile }
   2 function 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
  11 end function return_char1
  12 function 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
  21 end function return_char2
  22 function 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
  31 end function return_char3