diff --git a/tests/webtbs/tw3694.pp b/tests/webtbs/tw3694.pp
index d1e359e10f..31eb7069b9 100644
--- a/tests/webtbs/tw3694.pp
+++ b/tests/webtbs/tw3694.pp
@@ -6,7 +6,15 @@ begin
 end;
 
 var
+{$ifdef CPU64}
+  s : double;
+{$else}
   s : single;
+{$endif CPU64}
 begin
+{$ifdef CPU64}
+  s := double(f);
+{$else CPU64}
   s := single(f);
+{$endif CPU64}
 end.