24 lines
416 B
Fortran
24 lines
416 B
Fortran
! { 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
|
|
|