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 801

Go to most recent revision | Details | Compare with Previous | View Log


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

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

Browse

Tools

Subversion Repositories openrisc

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