Subject | : SAD on Sun Fortran 95 8.1 |
Date | : 2005/11/18(Fri) 12:14:11 |
Contributor | : Akio Morita |
Sun Fortran 95 8.1上で構築した SADが Packages/init.nの読み込み中に 無限ループに入って起動しません 試験環境は、多和田さんが用意してくれた Solaris10/i386です > uname -a SunOS kcg-06 5.10 Generic i86pc i386 i86pc > /opt/SUNWspro/bin/f77 -V NOTICE: Invoking /opt/SUNWspro/bin/f90 -f77 -ftrap=%none -V f90: Sun Fortran 95 8.1 2005/01/07 DEBUG用のパッチを当てて GCCで構築した SADのログと比較して行くと SAD Interpreterが管理しているメモリを開放する様子が変です アドレスが一致しないのは問題ないですが、開放する object sizeや 積算の使用量統計が負になるのは明らかに異常な気がします --- DEBUG patch --- diff -ur trunk-404.orig/src/italoc.f trunk-404/src/italoc.f --- trunk-404.orig/src/italoc.f Fri Mar 18 13:20:12 2005 +++ trunk-404/src/italoc.f Fri Nov 18 11:37:38 2005 @@ -445,6 +445,7 @@ return endif m=ilist(1,ia-1) + write(*,*)'tfree: ia=',ia,' m=',m,' nnet=',nnet if(m .lt. 4)then if(m .ne. 0)then write(*,*)'tfree ',ia,m diff -ur trunk-404.orig/src/itfgeto.f trunk-404/src/itfgeto.f --- trunk-404.orig/src/itfgeto.f Fri Mar 18 12:01:31 2005 +++ trunk-404/src/itfgeto.f Fri Nov 18 11:39:15 2005 @@ -10,6 +10,7 @@ itfgeto=-1 return endif + write(*,*)'itfgeto: tfeval(',buffer(1:lrecl),')' m=0 v=tfeval(buffer(1:lrecl),lrecl,ipoint,m,irtype,ira,.true.,irtc) c write(*,*)'itfgeto ',ipoint,irtype,ira,irtc,m --- DEBUG patch ---