Test suite results for test file webtbs/tw3252.pp

Test run data :

Test file "webtbs/tw3252.pp" information:

t_id 1343
t_adddate 2004/08/28
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 847486.

Source:

{ Source provided for Free Pascal Bug Report 3252 }
{ Submitted by "Tom Verhoeff" on  2004-08-16 }
{ e-mail: T.Verhoeff@tue.nl }
program ConstRange;
  { To demonstrate error with sqr in const expression }

const
  Max1 = 12; { program compiles fine when changing 12 to 11 }
  Max2 = Max1 * Max1; { this works fine }
  Max3 = sqr ( Max1 ); { this fails }

type
  Index = 0 .. Max3;

{ remainder not relevant, but included to have a complete program }

var
  i: Index;

begin
  i := 0
; writeln ( i )
end.

Link to SVN view of webtbs/tw3252.pp source.