K 10
svn:author
V 3
dfr
K 8
svn:date
V 27
1999-01-10T17:22:49.000000Z
K 7
svn:log
V 321
From the submitter:

I found the reason why f77 so offen dies on alpha. Here is a fix.
"Const" is a union of int and double.
If nelt->constblock.Const.ci > 0 then it trys to evaluate it as double
and floating point exception occurs.

Submitted by: Hidetoshi Shimokawa <simokawa@sat.t.u-tokyo.ac.jp>
Obtained from: NetBSD

END