* properly set types for currency divisions, resolves #38717

compiler/nmat.pas

@@ -511,7 +511,7 @@ implementation
 
         { when currency is used set the result of the
           parameters to s64bit, so they are not converted }
-        if is_currency(resultdef) then
+        if nf_is_currency in flags then
           begin
             left.resultdef:=s64inttype;
             right.resultdef:=s64inttype;

tests/webtbs/tw38717.pp

@@ -0,0 +1,15 @@
+program CurrencyTest;
+
+{$mode objfpc}{$H+}
+
+var
+  C: Currency;
+  R, D: Currency;
+begin
+  C := 1234.56;
+  R := 4;
+  D := 2;
+  C := C * R / D;
+  Writeln(C);
+end.
+