mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-09-29 23:13:54 -04:00
22 lines
465 B
C
22 lines
465 B
C
$NetBSD$
|
|
|
|
--- gcc/testsuite/gcc.c-torture/execute/pr49644.c.orig Wed May 21 19:48:58 2014
|
|
+++ gcc/testsuite/gcc.c-torture/execute/pr49644.c
|
|
@@ -0,0 +1,16 @@
|
|
+/* PR c/49644 */
|
|
+
|
|
+extern void abort (void);
|
|
+
|
|
+int
|
|
+main ()
|
|
+{
|
|
+ _Complex double a[12], *c = a, s = 3.0 + 1.0i;
|
|
+ double b[12] = { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 }, *d = b;
|
|
+ int i;
|
|
+ for (i = 0; i < 6; i++)
|
|
+ *c++ = *d++ * s;
|
|
+ if (c != a + 6 || d != b + 6)
|
|
+ abort ();
|
|
+ return 0;
|
|
+}
|