1 files changed, 77 insertions, 0 deletions
diff --git a/src/interfaces/ecpg/test/sql/array.pgc b/src/interfaces/ecpg/test/sql/array.pgc
new file mode 100644
index 00000000000..2444e0158be
--- /dev/null
+++ b/src/interfaces/ecpg/test/sql/array.pgc
@@ -0,0 +1,77 @@
+#include <locale.h>
+#include <string.h>
+#include <stdlib.h>
+
+exec sql whenever sqlerror sqlprint;
+
+exec sql include sqlca;
+exec sql include ../regression;
+
+int
+main (void)
+{
+EXEC SQL BEGIN DECLARE SECTION;
+	int i = 1;
+	int *did = &i;
+	int a[10] = {9,8,7,6,5,4,3,2,1,0};
+	char text[25] = "klmnopqrst";
+	char *t = (char *)malloc(11);
+	double f;
+EXEC SQL END DECLARE SECTION;
+
+	strcpy(t, "0123456789");
+	setlocale(LC_ALL, "C");
+
+	ECPGdebug(1, stderr);
+
+        EXEC SQL CONNECT TO REGRESSDB1;
+
+	EXEC SQL SET AUTOCOMMIT = ON;
+
+ 	EXEC SQL BEGIN WORK;
+
+	EXEC SQL CREATE TABLE test (f float, i int, a int[10], text char(10));
+
+	EXEC SQL INSERT INTO test(f,i,a,text) VALUES(404.90,3,'{0,1,2,3,4,5,6,7,8,9}','abcdefghij');
+
+	EXEC SQL INSERT INTO test(f,i,a,text) VALUES(140787.0,2,:a,:text);
+	
+	EXEC SQL INSERT INTO test(f,i,a,text) VALUES(14.07,:did,:a,:t);
+
+	EXEC SQL COMMIT;
+
+	EXEC SQL BEGIN WORK; 
+
+	EXEC SQL SELECT f,text
+         INTO :f,:text
+         FROM test
+         WHERE i = 1;
+
+	printf("Found f=%f text=%10.10s\n", f, text);
+
+	f=140787;
+	EXEC SQL SELECT a,text
+	 INTO :a,:t
+	 FROM test
+	 WHERE f = :f;
+
+	for (i = 0; i < 10; i++)
+		printf("Found a[%d] = %d\n", i, a[i]);
+
+	printf("Found text=%10.10s\n", t);
+
+	EXEC SQL SELECT a
+	 INTO :text
+	 FROM test
+	 WHERE f = :f;
+
+	printf("Found text=%s\n", text);
+
+	EXEC SQL DROP TABLE test;
+
+	EXEC SQL COMMIT;
+
+	EXEC SQL DISCONNECT;
+
+	return (0);
+}