gcc/testsuite/gfortran.dg/value_tests_f03.f90

   1 ! { 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