From 7e0f021a9aec35fd8e6725e87e3313b101d26f5e Mon Sep 17 00:00:00 2001
From: Tobias Klauser <tklauser@distanz.ch>
Date: Sun, 27 Jan 2008 11:37:44 +0100
Subject: Initial import (2.0.2-6)

---
 reference/C/CONTRIB/OR_USING_C/a.4.c | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 reference/C/CONTRIB/OR_USING_C/a.4.c

(limited to 'reference/C/CONTRIB/OR_USING_C/a.4.c')

diff --git a/reference/C/CONTRIB/OR_USING_C/a.4.c b/reference/C/CONTRIB/OR_USING_C/a.4.c
new file mode 100644
index 0000000..03d0639
--- /dev/null
+++ b/reference/C/CONTRIB/OR_USING_C/a.4.c
@@ -0,0 +1,18 @@
+typedef struct {
+	float r, i;
+} complex;
+
+main()
+{
+    extern complex y_();
+    complex i;
+
+    y_(&i);
+}
+
+x_(c)
+complex *c;
+{
+    c->r = 1.0;
+    c->i = 2.0;
+}
-- 
cgit v1.2.3-54-g00ecf