From d15b8726cbc398e3ca95aa040615fc5220bf1ff7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= <benoit.minisini@gambas-basic.org>
Date: Sun, 29 Oct 2023 22:46:41 +0100
Subject: [PATCH] Fix compilation of numbers added (or substracted) to dates.

[COMPILER]
* BUG: Fix compilation of numbers added (or substracted) to dates.
---
 main/gbc/gbc_trans_expr.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/main/gbc/gbc_trans_expr.c b/main/gbc/gbc_trans_expr.c
index 24b4ba1a1..aec1f5acb 100644
--- a/main/gbc/gbc_trans_expr.c
+++ b/main/gbc/gbc_trans_expr.c
@@ -468,9 +468,9 @@ static void trans_operation(short op, short nparam, PATTERN previous)
 
 		case RST_ADD:
 			type = Max(get_type_id(0, nparam), get_type_id(1, nparam));
+			ftype = TYPE_make_simple(type);
 			if (type == T_DATE)
 				type = T_FLOAT;
-			ftype = TYPE_make_simple(type);
 			break;
 
 		case RST_AND: