1 files changed, 24 insertions, 0 deletions
diff --git a/numpy/f2py/tests/test_crackfortran.py b/numpy/f2py/tests/test_crackfortran.py
index 827c71ae9..d26917f0c 100644
--- a/numpy/f2py/tests/test_crackfortran.py
+++ b/numpy/f2py/tests/test_crackfortran.py
@@ -115,3 +115,27 @@ class TestExternal(util.F2PyTest):
             return x + 123
         r = self.module.external_as_attribute(incr)
         assert r == 123
+
+class TestCrackFortran(util.F2PyTest):
+
+    suffix = '.f90'
+
+    code = textwrap.dedent("""
+      subroutine gh2848( &
+        ! first 2 parameters
+        par1, par2,&
+        ! last 2 parameters
+        par3, par4)
+
+        integer, intent(in)  :: par1, par2
+        integer, intent(out) :: par3, par4
+
+        par3 = par1
+        par4 = par2
+
+      end subroutine gh2848
+    """)
+
+    def test_gh2848(self):
+        r = self.module.gh2848(1, 2)
+        assert r == (1, 2)