annotate run/ieee_754_zerocomp_07.d @ 1619:bebc7472a832

Fix #7.
author Christian Kamm <kamm incasoftware de>
date Sat, 07 Nov 2009 18:55:30 +0100
parents 80e1b85295b3
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
496
e720ce827c1c added IEEE 754 tests for 0-handing
thomask
parents:
diff changeset
1 // $HeadURL$
e720ce827c1c added IEEE 754 tests for 0-handing
thomask
parents:
diff changeset
2 // $Date$
e720ce827c1c added IEEE 754 tests for 0-handing
thomask
parents:
diff changeset
3 // $Author$
e720ce827c1c added IEEE 754 tests for 0-handing
thomask
parents:
diff changeset
4
e720ce827c1c added IEEE 754 tests for 0-handing
thomask
parents:
diff changeset
5 module dstress.run.ieee_754_zerocomp_07;
e720ce827c1c added IEEE 754 tests for 0-handing
thomask
parents:
diff changeset
6
e720ce827c1c added IEEE 754 tests for 0-handing
thomask
parents:
diff changeset
7 int main(){
e720ce827c1c added IEEE 754 tests for 0-handing
thomask
parents:
diff changeset
8 real f1, f2;
e720ce827c1c added IEEE 754 tests for 0-handing
thomask
parents:
diff changeset
9
958
80e1b85295b3 DMD-0.154 review
thomask
parents: 496
diff changeset
10 f1=0.0L;
496
e720ce827c1c added IEEE 754 tests for 0-handing
thomask
parents:
diff changeset
11 f2=-f1;
958
80e1b85295b3 DMD-0.154 review
thomask
parents: 496
diff changeset
12 if(f1 != f2){
80e1b85295b3 DMD-0.154 review
thomask
parents: 496
diff changeset
13 assert(0);
80e1b85295b3 DMD-0.154 review
thomask
parents: 496
diff changeset
14 }
496
e720ce827c1c added IEEE 754 tests for 0-handing
thomask
parents:
diff changeset
15
958
80e1b85295b3 DMD-0.154 review
thomask
parents: 496
diff changeset
16 f1=-0.0L;
496
e720ce827c1c added IEEE 754 tests for 0-handing
thomask
parents:
diff changeset
17 f2=-f1;
958
80e1b85295b3 DMD-0.154 review
thomask
parents: 496
diff changeset
18 if(f1 != f2){
80e1b85295b3 DMD-0.154 review
thomask
parents: 496
diff changeset
19 assert(0);
80e1b85295b3 DMD-0.154 review
thomask
parents: 496
diff changeset
20 }
496
e720ce827c1c added IEEE 754 tests for 0-handing
thomask
parents:
diff changeset
21
e720ce827c1c added IEEE 754 tests for 0-handing
thomask
parents:
diff changeset
22 return 0;
e720ce827c1c added IEEE 754 tests for 0-handing
thomask
parents:
diff changeset
23 }