diff --git a/test/test_fortran.py b/test/test_fortran.py
index 77321e8fa259566652301399b34c6c86865bb938..6946f1181b692778ceee8767bf53fa640b047254 100644
--- a/test/test_fortran.py
+++ b/test/test_fortran.py
@@ -515,8 +515,8 @@ def test_fortran_subroutines(ctx_factory):
           integer i, n
           real*8  a(n,n)
 
-          call twice(1:n, i)
-          call twice(i, 1:n)
+          call twice(n, a(1:n, i))
+          call twice(n, a(i, 1:n))
 
 
         end subroutine