Path: utzoo!attcan!utgpu!cunews!bnrgate!brtph3!brchh104!brchs1!bnr.ca!rice.edu!sun-spots-request
From: monk@math.udel.edu
Newsgroups: comp.sys.sun
Subject: f77 v1.3.1
Keywords: Miscellaneous
Message-ID: <926@brchh104.bnr.ca>
Date: 19 Dec 90 17:04:12 GMT
Sender: news@brchh104.bnr.ca
Organization: Sun-Spots
Lines: 40
Approved: Sun-Spots@rice.edu
X-Sun-Spots-Digest: Volume 9, Issue 411, message 7
X-Note: Submissions: sun-spots@rice.edu, Admin: sun-spots-request@rice.edu

I am having a strange problem with sun f77 v1.3.1.  Can anyone help?

Here is the code:

      double precision d1,d2,d3
      data d1,d2,d3 /0.0d0,0.1d0,0.0d0/
      write(*,*) d1,d2,d3
      stop
      end

and here are some results of running it on my machine
(sparc1, OS4.1, f77v1.3.1, local disks):

33 % f77 -O -o test test.f
34 % test
   -2.3191199484774+265    1.0000000000000D-01  0.
35 % f77 -O -o test test.f ; test
test.f:
 MAIN:
    6.3660116631392-314    1.0000000000000D-01  0.
36 % !!
f77 -O -o test test.f ; test
test.f:
 MAIN:
    2.5463949492077-313    1.0000000000000D-01  0.
37 % !!
f77 -O -o test test.f ; test
test.f:
 MAIN:
  0.    1.0000000000000D-01  0.


As you can see I can get results ranging from correct to almost correct to
terrible depending on when I run it.  Sometimes it will give the correct
result for a number of compilation/run cycles.

Is this a known bug? Is there a fix?  Any help would be greatly
appreciated.

Peter Monk