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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [value_tests_f03.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run }
2
program value_tests_f03
3
  use, intrinsic :: iso_c_binding
4
  real(c_double) :: myDouble
5
  interface
6
     subroutine value_test(myDouble) bind(c)
7
       use, intrinsic :: iso_c_binding
8
       real(c_double), value :: myDouble
9
     end subroutine value_test
10
  end interface
11
 
12
  myDouble = 9.0d0
13
  call value_test(myDouble)
14
end program value_tests_f03
15
 
16
subroutine value_test(myDouble) bind(c)
17
  use, intrinsic :: iso_c_binding
18
  real(c_double), value :: myDouble
19
  interface
20
     subroutine mySub(myDouble)
21
       use, intrinsic :: iso_c_binding
22
       real(c_double), value :: myDouble
23
     end subroutine mySub
24
  end interface
25
 
26
  myDouble = 10.0d0
27
 
28
  call mySub(myDouble)
29
end subroutine value_test
30
 
31
subroutine mySub(myDouble)
32
  use, intrinsic :: iso_c_binding
33
  real(c_double), value :: myDouble
34
 
35
  myDouble = 11.0d0
36
end subroutine mySub
37
 

powered by: WebSVN 2.1.0

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