Lal <lal@sun.soe.clarkson.edu> (03/20/91)
Need some help !
Following is a 34 line sample of a program, that
gives a wrong result with the FORTRAN compiler
(operating system 4.1.1) in SPARC 1+ station. I
get the correct result with Lahey, WATFOR77,
compilers in PC, and IBM VS FORTRAN II and other
mainframe computers.
I am supposed to get
1
1
1
1
1
etc as my output as you can see in the program.
Instead, I get different values.
This time, I get 528941399.
I appreciate any suggestions to overcome this problem in SUN4.
C==================PROGRAM==tmp.f========================
PARAMETER (KX=12,KY=12)
COMPLEX SN1,SN2
COMMON /GEOM/ SN1(KX,KY),SN2(KX,KY)
DIMENSION U1(KX,KY),U2(KX,KY)
n=12
M=12
DO 10 IT=1,5
DO 1 I=1,4
DO 1 J=1,4
CALL TVDX (N,M,U1,U2)
C=C+1.0
1 CONTINUE
C=0.0
10 CONTINUE
STOP
END
SUBROUTINE TVDX (N,M,U1,U2)
PARAMETER (KX=12,KY=12)
COMPLEX SN1,SN2
COMMON /GEOM/ SN1(KX,KY),SN2(KX,KY)
DIMENSION U1(N,M),U2(N,M)
SAVE ISPO1,XP
DATA ISPO1,XP/0,.5/
IF (ISPO1 .EQ. 0) THEN
N1 = N - 1
M1 = M - 1
ISPO1 = 1
ENDIF
do 10 i=1,n
10 x=x+1.0
s=0.1
print*,ispo1
RETURN
END
C=============script==========================
Script started on Thu Mar 14 23:25:57 1991
water {51} % f77 -g tmp.f -o tmp
tmp.f:
MAIN:
tvdx:
water {52} % tmp
528941399
528941399
528941399
528941399
528941399
528941399
528941399
water {53} % ^C
water {53} % exit
water {54} %
script done on Thu Mar 14 23:26:23 1991khb@chiba.Eng.Sun.COM (Keith Bierman fpgroup) (03/21/91)
.... on my system running f77v1.3.1
f77 bar.f && a.out
bar.f:
MAIN:
tvdx:
1
1
1.... lots of 1's deleted
1
1
1
1
chiba:/net/chiba/home2/khb>
It also works with f77v1.4.
It sounds like you have a local installation error. I suggest you chat
with your support folks rather than take up net bandwidth about this.
--
----------------------------------------------------------------
Keith H. Bierman kbierman@Eng.Sun.COM | khb@chiba.Eng.Sun.COM
SMI 2550 Garcia 12-33 | (415 336 2648)
Mountain View, CA 94043khb@chiba.Eng.Sun.COM (Keith Bierman fpgroup) (03/21/91)
In article <KHB.91Mar20131329@chiba.Eng.Sun.COM> khb@chiba.Eng.Sun.COM (Keith Bierman fpgroup) writes: It sounds like you have a local installation error.... A likely candiate for this error, is using TMPFS w/o the OS patch to it. Which if memory serves, is 4.1 100089-04 \ |---> fixes for various tmpfs bugs 4.1.1 100174-01 / Alternatively you can unconfigure the TMPFS option. However, I have obtained up to 2x compile time speedups (with 32Mb RAM) so I'd go for the patch if I were you. -- ---------------------------------------------------------------- Keith H. Bierman kbierman@Eng.Sun.COM | khb@chiba.Eng.Sun.COM SMI 2550 Garcia 12-33 | (415 336 2648) Mountain View, CA 94043