hyb
2026-01-07 c7f60dc7e9a36596f0e0d1787bd0cca4e9b57bcb
1
2
3
4
5
6
      SUBROUTINE FOO()
      INTEGER BAR(2, 3)
 
      COMMON  /BLOCK/ BAR
      RETURN
      END