double prec. bug in g77?

From: Grzegorz Mucha <grzes_at_twins.pk.edu.pl>
Date: Mon, 30 Oct 1995 12:15:04 +0100 (MET)

Followup-To: poster
Precedence: bulk
Hi,

I'm running g77-0.5.16/gcc-2.7.0 on DEC Alpha running DU 3.2.
And I found sth. strange:

Output from:

(111)|alpha:~/FORTRAN> more test1.f
      program test1
      a=1.5
      write(*,*)'a = ',a
      b=1.5e2
      write(*,*)'b = ',b
      end

is:
(113)|alpha:~/FORTRAN> a.out
 a = 1.5
 b = 150.

but when I change the program to:


      double precision a,b
      a=1.5
      write(*,*)'a = ',a
      b=1.5e2
      write(*,*)'b = ',b
      end

all I get is:
(113)|alpha:~/FORTRAN> a.out
 a = 0.
 b = 0.

and the question is as usual: what's going on?

                                        TIA, Grzegorz

--
    _/_/_/       _/     _/          _/_/_/_/_/    Grzegorz Mucha
  _/            _/     _/              _/         Civil Eng. Dept., L-5 Inst.
 _/            _/     _/              _/          System Administrator
_/            _/     _/              _/           tel. +48 12 330340
 _/_/_/racow   _/_/_/niversity  of  _/echnology   grzes_at_twins.pk.edu.pl

Received on Mon Oct 30 1995 - 12:36:08 NZDT