File size: 97 Bytes
466722c
 
 
 
 
 
1
2
3
4
5
6
7
      SUBROUTINE FOO()
      INTEGER BAR(2, 3)

      COMMON  /BLOCK/ BAR
      RETURN
      END