Correct boolean inputs

This commit is contained in:
Benjamin Loison 2023-01-03 23:23:18 +01:00
parent f8c673632e
commit b168161b4f

View File

@ -362,7 +362,7 @@ let cp_main_fn fmt (prog, sts) =
else Format.fprintf fmt "%s%a") else Format.fprintf fmt "%s%a")
(match h with (match h with
| IVar _ -> "%d" | IVar _ -> "%d"
| BVar _ -> "%hd" | BVar _ -> "%c"
| RVar _ -> "%lf") | RVar _ -> "%lf")
cp_scanf_str (true, t) cp_scanf_str (true, t)
in in