1 files changed, 23 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/value_test.f90 b/gcc/testsuite/gfortran.dg/value_test.f90
new file mode 100644
index 000000000..12313324c
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/value_test.f90
@@ -0,0 +1,23 @@
+! { 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
+