OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [bind_c_usage_19.f90] - Blame information for rev 384

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 302 jeremybenn 
! { 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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.