summaryrefslogtreecommitdiff
path: root/numpy/f2py/tests/src/block_docstring/foo.f
blob: c8315f12ce0f5cf3dbc4c965ad8843d0c10441cd (plain)
1
2
3
4
5
6
      SUBROUTINE FOO()
      INTEGER BAR(2, 3)

      COMMON  /BLOCK/ BAR
      RETURN
      END