1 files changed, 7 insertions, 9 deletions
diff --git a/src/interfaces/ecpg/test/compat_oracle/char_array.pgc b/src/interfaces/ecpg/test/compat_oracle/char_array.pgc
index 8e163398b3a..5b5d0bb37b9 100644
--- a/src/interfaces/ecpg/test/compat_oracle/char_array.pgc
+++ b/src/interfaces/ecpg/test/compat_oracle/char_array.pgc
@@ -4,7 +4,10 @@
 
 EXEC SQL INCLUDE ../regression;
 
-static void warn();
+static void warn(void)
+{
+  fprintf(stderr, "Warning: At least one column was truncated\n");
+}
 
 /* Compatible handling of char array to retrieve varchar field to char array
    should be fixed-length, blank-padded, then null-terminated.
@@ -12,9 +15,6 @@ static void warn();
 
 int main() {
 
-  ECPGdebug(1, stderr);
-  EXEC SQL CONNECT TO REGRESSDB1;
-
   EXEC SQL WHENEVER SQLWARNING do warn();
   EXEC SQL WHENEVER SQLERROR SQLPRINT;
 
@@ -27,6 +27,9 @@ int main() {
   short bigstr_ind = 0;
   EXEC SQL END DECLARE SECTION;
 
+  ECPGdebug(1, stderr);
+  EXEC SQL CONNECT TO REGRESSDB1;
+
   EXEC SQL CREATE TABLE strdbase (strval varchar(10));
   EXEC SQL INSERT INTO strdbase values ('');
   EXEC SQL INSERT INTO strdbase values ('AB');
@@ -59,8 +62,3 @@ int main() {
 
   return 0;
 }
-
-static void warn(void)
-{
-  fprintf(stderr, "Warning: At least one column was truncated\n");
-}