diff --git a/tests/test/cg/tcalext6.pp b/tests/test/cg/tcalext6.pp
index ca855d1534..a1a9da2d21 100644
--- a/tests/test/cg/tcalext6.pp
+++ b/tests/test/cg/tcalext6.pp
@@ -211,7 +211,7 @@ begin
 end;
 
 {$ifdef FPC_HAS_TYPE_EXTENDED}
-procedure verify(val1, val2 : cextended; nr : Integer); overload;
+procedure verify(val1, val2 : extended; nr : Integer); overload;
 begin
   success := success and (val1 = val2);
   Write('Testing test ', nr , ', was ', val1, ', should be ', val2, '...');