numpy/f2py/tests/src/block_docstring/foo.f

      SUBROUTINE FOO()
      INTEGER BAR(2, 3)

      COMMON  /BLOCK/ BAR
      RETURN
      END