gcc/testsuite/go.test/test/ken/cplx2.go

   1 // $G $D/$F.go && $L $F.$A && ./$A.out
   2
   3 // Copyright 2010 The Go Authors. All rights reserved.
   4 // Use of this source code is governed by a BSD-style
   5 // license that can be found in the LICENSE file.
   6
   7 package main
   8
   9 const (
  10         R = 5
  11         I = 6i
  12
  13         C1 = R + I    // ADD(5,6)
  14         C2 = R - I    // SUB(5,-6)
  15         C3 = -(R + I) // ADD(5,6) NEG(-5,-6)
  16         C4 = -(R - I) // SUB(5,-6) NEG(-5,6)
  17
  18         C5 = C1 + R // ADD(10,6)
  19         C6 = C1 + I // ADD(5,12)
  20
  21         Ca = C5 + C6 // ADD(15,18)
  22         Cb = C5 - C6 // SUB(5,-6)
  23
  24         Cc = C5 * C6 // MUL(-22,-150)
  25         Cd = C5 / C6 // DIV(0.721893,-0.532544)
  26         Ce = Cd * C6 // MUL(10,6) sb C5
  27 )
  28
  29 func main() {
  30
  31         r := 5 + 0i
  32         if r != R {
  33                 println("opcode 1", r, R)
  34                 panic("fail")
  35         }
  36
  37         i := 6i
  38         if i != I {
  39                 println("opcode 2", i, I)
  40                 panic("fail")
  41         }
  42
  43         c1 := r + i
  44         if c1 != C1 {
  45                 println("opcode x", c1, C1)
  46                 panic("fail")
  47         }
  48
  49         c2 := r - i
  50         if c2 != C2 {
  51                 println("opcode x", c2, C2)
  52                 panic("fail")
  53         }
  54
  55         c3 := -(r + i)
  56         if c3 != C3 {
  57                 println("opcode x", c3, C3)
  58                 panic("fail")
  59         }
  60
  61         c4 := -(r - i)
  62         if c4 != C4 {
  63                 println("opcode x", c4, C4)
  64                 panic("fail")
  65         }
  66
  67         c5 := c1 + r
  68         if c5 != C5 {
  69                 println("opcode x", c5, C5)
  70                 panic("fail")
  71         }
  72
  73         c6 := c1 + i
  74         if c6 != C6 {
  75                 println("opcode x", c6, C6)
  76                 panic("fail")
  77         }
  78
  79         ca := c5 + c6
  80         if ca != Ca {
  81                 println("opcode x", ca, Ca)
  82                 panic("fail")
  83         }
  84
  85         cb := c5 - c6
  86         if cb != Cb {
  87                 println("opcode x", cb, Cb)
  88                 panic("fail")
  89         }
  90
  91         cc := c5 * c6
  92         if cc != Cc {
  93                 println("opcode x", cc, Cc)
  94                 panic("fail")
  95         }
  96
  97         cd := c5 / c6
  98         if cd != Cd {
  99                 println("opcode x", cd, Cd)
 100                 panic("fail")
 101         }
 102
 103         ce := cd * c6
 104         if ce != Ce {
 105                 println("opcode x", ce, Ce)
 106                 panic("fail")
 107         }
 108 }