MLK@vm.nrc.ca ("John S. Tse") (03/06/91)
There may be a bug with the MIPS f77 compiler on handling namelist input. When the following program was compiled with -O1 optimization it gave the correct result. However, when compiled under -O2, the variable x(i) becomes ZERO !! More interestingly, if one inserted a write statement after the READ, it gave the correct results even under -O2 . Apparently, the value in variable a was not loaded into x(i) in the DO loop when compiled under -O2. Any idea ?? program test namelist /idata/ j,a dimension x(100) do 100 i = 1, 5 read(5,nml=idata) x(j) = a 100 continue write(6,10) (x(i),i=1,5) 10 format(e12.5) stop end $idata j=5, a = 5.0 $end $idata j=3, a = 3.0 $end $idata j=2, a = 2.0 $end $idata j=4, a = 4.0 $end $idata j=1, a = 1.0 $end John S. Tse Steacie Institute for Molecular Science National Research Council of Canada MLK @ NRCVM01.BITNET