URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [value_test.f90] - Blame information for rev 325

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


! { dg-do run }
program valueTests
  integer :: myInt
  interface
     subroutine mySub(myInt)
       integer, value :: myInt
     end subroutine mySub
  end interface
 
  myInt = 10
 
  call mySub(myInt)
  ! myInt should be unchanged since pass-by-value
  if(myInt .ne. 10) then
     call abort ()
  endif
end program valueTests
 
subroutine mySub(myInt)
  integer, value :: myInt
  myInt = 11
end subroutine mySub
 

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`program valueTests`
3			`integer :: myInt`
4			`interface`
5			`subroutine mySub(myInt)`
6			`integer, value :: myInt`
7			`end subroutine mySub`
8			`end interface`
9
10			`myInt = 10`
11
12			`call mySub(myInt)`
13			`! myInt should be unchanged since pass-by-value`
14			`if(myInt .ne. 10) then`
15			`call abort ()`
16			`endif`
17			`end program valueTests`
18
19			`subroutine mySub(myInt)`
20			`integer, value :: myInt`
21			`myInt = 11`
22			`end subroutine mySub`
23

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [value_test.f90] - Blame information for rev 325