2 program value_tests_f03
3 use, intrinsic :: iso_c_binding
4 real(c_double) :: myDouble
6 subroutine value_test(myDouble) bind(c)
7 use, intrinsic :: iso_c_binding
8 real(c_double), value :: myDouble
9 end subroutine value_test
13 call value_test(myDouble)
14 end program value_tests_f03
16 subroutine value_test(myDouble) bind(c)
17 use, intrinsic :: iso_c_binding
18 real(c_double), value :: myDouble
20 subroutine mySub(myDouble)
21 use, intrinsic :: iso_c_binding
22 real(c_double), value :: myDouble
29 end subroutine value_test
31 subroutine mySub(myDouble)
32 use, intrinsic :: iso_c_binding
33 real(c_double), value :: myDouble