COMMON Block Problem in Version 3.30

PSS ID Number:  Q11181
Article last modified on 01-13-1989

3.30 
XENIX
buglist3.30 

Problem:
There is a problem in the COMMON blocks causing other elements of the
COMMON block to be overwritten. If the 50000 element array in the
following example source code is placed at the end of the COMMON list,
the problem is corrected:
   $LARGE
           COMMON /BAYR/ FLOW(1000,50),FLOWT(1000),P(1000),
         + T(1000),LIST(1000)
           DO 100 K100 = 1,1000
           DO 50 K50 = 1,50
           FLOW(K100,K50) = 1.1
   50      CONTINUE
           LIST(K100) = 222
           P(K100) = 100.
           T(K100) = 32.
           FLOWT(K100) = 1.0E10
   100     CONTINUE
           WRITE (*,200) FLOWT(1),FLOWT(500),FLOWT(1000),LIST(100),
         + P(100),T(100),FLOW(1000,50)
   200     FORMAT(3G15.3,I4,3F8.1)
           STOP
           END

Response:
Microsoft has confirmed this to be a problem in Version 3.30. We are
researching this problem and will post new information as it becomes
available. 
Currently, there is no workaround.