-- PostgreSQL PL-LOOP Benchmark - SQL script
-- v.1.0.0 
-- Copyright (C) 2011 mail@meo.bogliolo.name

CREATE procedure ciclo_1M () RETURNS integer AS '
  DECLARE
    i integer;
    c integer;  
  BEGIN
    i := 0;   
    LOOP
      i := i + 1;
      select count(*) into c from dual;
      EXIT WHEN i >= 1000000;
    END LOOP;
    
    RETURN 0;
  END;
' LANGUAGE 'plpgsql';

execute ciclo1M();