gcc/testsuite/gfortran.dg/value_test.f90

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