From 82539ad8d59729fb45b0bb0edda8f2bddb719eb1 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 28 Apr 2024 15:15:26 +0200 Subject: Adding upstream version 1.17.13. Signed-off-by: Daniel Baumann --- test/cmplxdivide.c | 98 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 98 insertions(+) create mode 100644 test/cmplxdivide.c (limited to 'test/cmplxdivide.c') diff --git a/test/cmplxdivide.c b/test/cmplxdivide.c new file mode 100644 index 0000000..89a2868 --- /dev/null +++ b/test/cmplxdivide.c @@ -0,0 +1,98 @@ +// Copyright 2010 The Go Authors. All rights reserved. +// Use of this source code is governed by a BSD-style +// license that can be found in the LICENSE file. + +// This C program generates the file cmplxdivide1.go. It uses the +// output of the operations by C99 as the reference to check +// the implementation of complex numbers in Go. +// The generated file, cmplxdivide1.go, is compiled along +// with the driver cmplxdivide.go (the names are confusing +// and unimaginative) to run the actual test. This is done by +// the usual test runner. +// +// The file cmplxdivide1.go is checked in to the repository, but +// if it needs to be regenerated, compile and run this C program +// like this: +// gcc '-std=c99' cmplxdivide.c && a.out >cmplxdivide1.go + +#include +#include +#include +#include + +#define nelem(x) (sizeof(x)/sizeof((x)[0])) + +double f[] = { + 0.0, + -0.0, + 1.0, + -1.0, + 2.0, + NAN, + INFINITY, + -INFINITY, +}; + +char* fmt(double g) { + static char buf[10][30]; + static int n; + char *p; + + p = buf[n++]; + if(n == 10) { + n = 0; + } + + sprintf(p, "%g", g); + + if(strcmp(p, "0") == 0) { + strcpy(p, "zero"); + return p; + } + + if(strcmp(p, "-0") == 0) { + strcpy(p, "-zero"); + return p; + } + + return p; +} + +int main(void) { + int i, j, k, l; + double complex n, d, q; + + printf("// skip\n"); + printf("// # generated by cmplxdivide.c\n"); + printf("\n"); + printf("package main\n"); + printf("\n"); + printf("import \"math\"\n"); + printf("\n"); + printf("var (\n"); + printf("\tnan = math.NaN()\n"); + printf("\tinf = math.Inf(1)\n"); + printf("\tzero = 0.0\n"); + printf(")\n"); + printf("\n"); + printf("var tests = []struct {\n"); + printf("\tf, g complex128\n"); + printf("\tout complex128\n"); + printf("}{\n"); + + for(i=0; i