Mercurial > projects > ldc
annotate tests/mini/complex1.d @ 1292:ad41053c336e
Make static int[] a = [1, 2]; a[0] = 4; not segfault
by making the array data ptr a non-const global variable.
author | Christian Kamm <kamm incasoftware de> |
---|---|
date | Sun, 03 May 2009 11:16:54 +0200 |
parents | fbb1a366cfbc |
children |
rev | line source |
---|---|
90 | 1 module complex1; |
2 | |
3 void main() | |
4 { | |
104
4d1e9eb001e0
[svn r108] Now basic suppport for complex types. =,+,-,*,/ are supported.
lindquist
parents:
90
diff
changeset
|
5 cfloat cf1 = 3f + 0i; |
4d1e9eb001e0
[svn r108] Now basic suppport for complex types. =,+,-,*,/ are supported.
lindquist
parents:
90
diff
changeset
|
6 cfloat cf2 = 4f + 1i; |
4d1e9eb001e0
[svn r108] Now basic suppport for complex types. =,+,-,*,/ are supported.
lindquist
parents:
90
diff
changeset
|
7 cfloat cf3 = func(); |
4d1e9eb001e0
[svn r108] Now basic suppport for complex types. =,+,-,*,/ are supported.
lindquist
parents:
90
diff
changeset
|
8 auto c1 = cf1 + cf2; |
4d1e9eb001e0
[svn r108] Now basic suppport for complex types. =,+,-,*,/ are supported.
lindquist
parents:
90
diff
changeset
|
9 auto c2 = cf2 - cf3; |
4d1e9eb001e0
[svn r108] Now basic suppport for complex types. =,+,-,*,/ are supported.
lindquist
parents:
90
diff
changeset
|
10 auto c3 = cf1 * cf3; |
4d1e9eb001e0
[svn r108] Now basic suppport for complex types. =,+,-,*,/ are supported.
lindquist
parents:
90
diff
changeset
|
11 auto c4 = cf2 / cf3; |
90 | 12 } |
104
4d1e9eb001e0
[svn r108] Now basic suppport for complex types. =,+,-,*,/ are supported.
lindquist
parents:
90
diff
changeset
|
13 |
4d1e9eb001e0
[svn r108] Now basic suppport for complex types. =,+,-,*,/ are supported.
lindquist
parents:
90
diff
changeset
|
14 cfloat func() |
4d1e9eb001e0
[svn r108] Now basic suppport for complex types. =,+,-,*,/ are supported.
lindquist
parents:
90
diff
changeset
|
15 { |
4d1e9eb001e0
[svn r108] Now basic suppport for complex types. =,+,-,*,/ are supported.
lindquist
parents:
90
diff
changeset
|
16 return 3f + 1i; |
4d1e9eb001e0
[svn r108] Now basic suppport for complex types. =,+,-,*,/ are supported.
lindquist
parents:
90
diff
changeset
|
17 } |