FIX: $STORAGE:2 or /4I2 Generates Incorrect Code

MORE INFORMATION

Sample Code 1

C Compile options needed: none (or comment out line 1 and use: /4I2)
$storage:2
      integer iunit(3)
      data iunit/100,10,1/ 
      print*, iunit
      end
C This will generate the following error:
C   F2408: IUNIT : DATA : too few constants to initialize item
				

Sample Code 2

C Compile options needed: none (or comment out line 1 and use: /4I2)
$storage:2
      integer*4 i,j
      j = 30000
      i = j*j
      print*, i,j
      end
C When run, this will give the following wrong result:
C   -5888    30000
C instead of the following correct result:
C   900000000    30000