Age         Owner                    Branch data    TLA  Line data    Source code

                                  1                 :                : #include <stdio.h>
                                  2                 :                : #include <stdlib.h>
                                  3                 :                : #include <string.h>
                                  4                 :                : 
                                  5                 :                : /* test parser addition that merges two tokens into one */
                                  6                 :                : EXEC SQL INCLUDE ../regression;
                                  7                 :                : 
  106 peter@eisentraut.org        8                 :GNC           1 : int main(void) {
                                  9                 :                :   EXEC SQL BEGIN DECLARE SECTION;
                                 10                 :                :     int item[3], ind[3], i;
                                 11                 :                :   EXEC SQL END DECLARE SECTION;
                                 12                 :                : 
 7045 meskes@postgresql.or       13                 :CBC           1 :   ECPGdebug(1, stderr);
                                 14                 :              1 :   EXEC SQL CONNECT TO REGRESSDB1;
                                 15                 :                : 
                                 16                 :              1 :   EXEC SQL SET AUTOCOMMIT TO ON;
                                 17                 :                :   EXEC SQL WHENEVER SQLWARNING SQLPRINT;
                                 18                 :                :   EXEC SQL WHENEVER SQLERROR SQLPRINT;
                                 19                 :                : 
                                 20                 :              1 :   EXEC SQL CREATE TABLE T ( Item1 int, Item2 int );
                                 21   [ -  +  -  + ]:              1 : 
 4615 peter_e@gmx.net            22                 :              1 :   EXEC SQL INSERT INTO t
                                 23                 :                :            SELECT 1,nullif(y-1,0)
                                 24                 :                :              FROM generate_series(1,3) WITH ORDINALITY AS series(x,y);
 7045 meskes@postgresql.or       25   [ -  +  -  + ]:              1 : 
                                 26                 :              1 :   EXEC SQL SELECT Item2 INTO :item:ind FROM T ORDER BY Item2 NULLS LAST;
                                 27   [ -  +  -  + ]:              1 : 
                                 28         [ +  + ]:              4 :   for (i=0; i<3; i++)
 4615 peter_e@gmx.net            29         [ +  + ]:              3 :     printf("item[%d] = %d\n", i, ind[i] ? -1 : item[i]);
                                 30                 :                : 
 6461                            31                 :              1 :   EXEC SQL ALTER TABLE T ALTER Item1 TYPE bigint;
                                 32   [ -  +  -  + ]:              1 :   EXEC SQL ALTER TABLE T ALTER COLUMN Item2 SET DATA TYPE smallint;
                                 33   [ -  +  -  + ]:              1 : 
 7045 meskes@postgresql.or       34                 :              1 :   EXEC SQL DROP TABLE T;
                                 35   [ -  +  -  + ]:              1 : 
                                 36                 :              1 :   EXEC SQL DISCONNECT ALL;
                                 37   [ -  +  -  + ]:              1 : 
                                 38                 :              1 :   return 0;
                                 39                 :                : }