exec sql whenever sqlerror sqlprint;

exec sql include sqlca;

int
main ()
{
EXEC SQL BEGIN DECLARE SECTION;
	int a = 1;
	double f;
EXEC SQL END DECLARE SECTION;
	FILE *dbgs;
        
	if ((dbgs = fopen("log", "w")) != NULL)
                ECPGdebug(1, dbgs);

        EXEC SQL CONNECT TO mm;

	EXEC SQL CREATE TABLE test (f decimal(8,2), a int);

	EXEC SQL INSERT INTO test(f,a) VALUES(17000.00,1);

	EXEC SQL COMMIT;

	EXEC SQL SELECT f::float
         INTO :f
         FROM test
         WHERE a = :a;

	printf("Found f::float=%f\n", f);

	EXEC SQL SELECT f
         INTO :f
         FROM test
         WHERE a = :a;

	printf("Found f=%f\n", f);

	EXEC SQL DROP TABLE test;

	EXEC SQL COMMIT;

	EXEC SQL DISCONNECT;
}