diff --git a/src/interfaces/ecpg/test/dyntest2.pgc b/src/interfaces/ecpg/test/dyntest2.pgc
index 396f6a1730f59ae9456fe69a3f52e2266a20ba42..6ace070226539fbb5a5d1a3a169988b745663caa 100644
--- a/src/interfaces/ecpg/test/dyntest2.pgc
+++ b/src/interfaces/ecpg/test/dyntest2.pgc
@@ -2,7 +2,7 @@
  *
  * Copyright (c) 2000, Christof Petig <christof.petig@wtal.de>
  *
- * $Header: /cvsroot/pgsql/src/interfaces/ecpg/test/Attic/dyntest2.pgc,v 1.3 2001/11/14 11:11:49 meskes Exp $
+ * $Header: /cvsroot/pgsql/src/interfaces/ecpg/test/Attic/dyntest2.pgc,v 1.4 2003/05/23 15:22:38 meskes Exp $
  */
 
 #include <stdio.h>
@@ -72,8 +72,8 @@ exec sql end declare section;
      		:PRECISION = precision, :SCALE=scale,
      		:NULLABLE=nullable, :NAME=name,
      		:INDICATOR=indicator;
-     	printf("%2d\t%s (type: %d length: %d precision: %d scale: %d
-		\toctet_length: %d returned_octet_length: %d nullable: %d)\n\t= "
+     	printf("%2d\t%s (type: %d length: %d precision: %d scale: %d\n"
+		"\toctet_length: %d returned_octet_length: %d nullable: %d)\n\t= "
      			,INDEX,NAME,TYPE,LENGTH,PRECISION,SCALE
      			,OCTET_LENGTH,RETURNED_OCTET_LENGTH,NULLABLE);
      	if (INDICATOR==-1) printf("NULL\n");
diff --git a/src/interfaces/ecpg/test/test1.pgc b/src/interfaces/ecpg/test/test1.pgc
index f787b8fdb658000a04aef4ae819df893bec454e5..05fcda0ca9ecb29b778d80b8a9fec5c71d40d8c9 100644
--- a/src/interfaces/ecpg/test/test1.pgc
+++ b/src/interfaces/ecpg/test/test1.pgc
@@ -126,7 +126,7 @@ exec sql end declare section;
 	    amount[i]+=1000;
 
 	    strcpy(msg, "insert");
-	    exec sql at pm insert into "Test" (name, amount, letter) values (:n, :a, :l);
+	    exec sql at pm insert into "Test" (name, amount, letter) values (:n, :amount[i], :l);
 	}
 
 	strcpy(msg, "commit");
@@ -164,9 +164,6 @@ exec sql end declare section;
         for (i=0, j=sqlca.sqlerrd[2]; i<j; i++)
             printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, name[i], i, amount[i],i, letter[i][0]);
 
-        strcpy(msg, "select");
-        exec sql at pm select name, amount, letter into :name_letter from "Test";
-
 	strcpy(msg, "commit");
 	exec sql commit;
 
@@ -177,6 +174,16 @@ exec sql end declare section;
         for (i=0, j=sqlca.sqlerrd[2]; i<j; i++)
             printf("name[%d]=%8.8s\tamount[%d]=%d\tletter[%d]=%c\n", i, name_letter[i].name, i, name_letter[i].amount,i, name_letter[i].letter);
 
+	name_letter[4].amount=1407;
+	strcpy(msg, "insert");
+	exec sql insert into "Test" (name, amount, letter) values (:name_letter[4]);
+	
+        strcpy(msg, "select");
+        exec sql select name, amount, letter into :name_letter[2] from "Test" where amount = 1407;
+
+	printf("Database: mm\n");
+        printf("name[2]=%8.8s\tamount[2]=%d\tletter[2]=%c\n", name_letter[2].name, name_letter[2].amount, name_letter[2].letter);
+
 	/* Start automatic transactioning for connection main. */
 	exec sql set autocommit to on;