testsuite: XFAIL gfortran.dg/initialization_25.f90 properly (again)
[official-gcc.git] / gcc / testsuite / go.test / test / func.go
blob246cb56fd95c398ef2f973cee4599814dd19b1bb
1 // run
3 // Copyright 2009 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.
7 // Test simple functions.
9 package main
11 func assertequal(is, shouldbe int, msg string) {
12 if is != shouldbe {
13 print("assertion fail", msg, "\n")
14 panic(1)
18 func f1() {
21 func f2(a int) {
24 func f3(a, b int) int {
25 return a + b
28 func f4(a, b int, c float32) int {
29 return (a+b)/2 + int(c)
32 func f5(a int) int {
33 return 5
36 func f6(a int) (r int) {
37 return 6
40 func f7(a int) (x int, y float32) {
41 return 7, 7.0
45 func f8(a int) (x int, y float32) {
46 return 8, 8.0
49 type T struct {
50 x, y int
53 func (t *T) m10(a int, b float32) int {
54 return (t.x + a) * (t.y + int(b))
58 func f9(a int) (i int, f float32) {
59 i = 9
60 f = 9.0
61 return
65 func main() {
66 f1()
67 f2(1)
68 r3 := f3(1, 2)
69 assertequal(r3, 3, "3")
70 r4 := f4(0, 2, 3.0)
71 assertequal(r4, 4, "4")
72 r5 := f5(1)
73 assertequal(r5, 5, "5")
74 r6 := f6(1)
75 assertequal(r6, 6, "6")
76 r7, s7 := f7(1)
77 assertequal(r7, 7, "r7")
78 assertequal(int(s7), 7, "s7")
79 r8, s8 := f8(1)
80 assertequal(r8, 8, "r8")
81 assertequal(int(s8), 8, "s8")
82 r9, s9 := f9(1)
83 assertequal(r9, 9, "r9")
84 assertequal(int(s9), 9, "s9")
85 var t *T = new(T)
86 t.x = 1
87 t.y = 2
88 r10 := t.m10(1, 3.0)
89 assertequal(r10, 10, "10")