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.
