Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/bind_c_usage_19.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } function return_char1(i) bind(c,name='return_char1') use iso_c_binding implicit none integer(c_int) :: i character(c_char) :: j character(c_char) :: return_char1 j = achar(i) return_char1 = j end function return_char1 function return_char2(i) result(output) bind(c,name='return_char2') use iso_c_binding implicit none integer(c_int) :: i character(c_char) :: j character(c_char) :: output j = achar(i) output = j end function return_char2 function return_char3(i) bind(c,name='return_char3') result(output) use iso_c_binding implicit none integer(c_int) :: i character(c_char) :: j character(c_char) :: output j = achar(i) output = j end function return_char3