Type problem

[Jim Brander]

Many thanks for directions to obtaining cygwin version of gpc.

The cygwin32 version of gpc
gives "invalid operands to binary = "
for comparison of types in following test program.

program testtype;
type   logstate1= (nyk1,uke1,error1,false_p1,true_p1);
       array_record1 = record
         state1: logstate1;
         actual : real;
       end;
type
	     info_array1 = array[0..100] of array_record1;
var pinfo:info_array1;
begin
if (pinfo[3].state1 = nyk1)
 then pinfo[3].state1 := nyk1;
if (pinfo[3].actual = 123.0)
 then pinfo[3].actual := 456.0;
end.

Regards

Jim Brander


-------------- next part --------------
program testtype;
type   logstate1= (nyk1,uke1,error1,false_p1,true_p1);
       array_record1 = record
         state1: logstate1;
         actual : real;
       end;
type
	     info_array1 = array[0..100] of array_record1;
var pinfo:info_array1;
begin
if (pinfo[3].state1 = nyk1)
 then pinfo[3].state1 := nyk1;
if (pinfo[3].actual = 123.0)
 then pinfo[3].actual := 456.0;
end.