1 {*******************************************************} 2 {FDL Declarations} 3 {Examiner Pro Edition, Version 9.1.0, Build Date 20101119, Build 19039} 4 {Copyright (C) 2010 Altran Praxis Limited, Bath, U.K.} 5 {*******************************************************} 6 7 8 {DATE : 22-SEP-2011 11:10:50.42} 9 10 {procedure Loop_Invariant.Proc2} 11 12 13title procedure proc2; 14 15 function round__(real) : integer; 16 type word32 = integer; 17 const word32__base__first : integer = pending; 18 const word32__base__last : integer = pending; 19 const natural__base__first : integer = pending; 20 const natural__base__last : integer = pending; 21 const integer__base__first : integer = pending; 22 const integer__base__last : integer = pending; 23 const word32__first : integer = pending; 24 const word32__last : integer = pending; 25 const word32__modulus : integer = pending; 26 const word32__size : integer = pending; 27 const natural__first : integer = pending; 28 const natural__last : integer = pending; 29 const natural__size : integer = pending; 30 const integer__first : integer = pending; 31 const integer__last : integer = pending; 32 const integer__size : integer = pending; 33 var a : integer; 34 var b : integer; 35 var c : integer; 36 var loop__1__i : integer; 37 38end; 39