Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/value_tests_f03.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 run } program value_tests_f03 use, intrinsic :: iso_c_binding real(c_double) :: myDouble interface subroutine value_test(myDouble) bind(c) use, intrinsic :: iso_c_binding real(c_double), value :: myDouble end subroutine value_test end interface myDouble = 9.0d0 call value_test(myDouble) end program value_tests_f03 subroutine value_test(myDouble) bind(c) use, intrinsic :: iso_c_binding real(c_double), value :: myDouble interface subroutine mySub(myDouble) use, intrinsic :: iso_c_binding real(c_double), value :: myDouble end subroutine mySub end interface myDouble = 10.0d0 call mySub(myDouble) end subroutine value_test subroutine mySub(myDouble) use, intrinsic :: iso_c_binding real(c_double), value :: myDouble myDouble = 11.0d0 end subroutine mySub