diff options
-rw-r--r-- | cfrontend/C2C.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cfrontend/C2C.ml b/cfrontend/C2C.ml index 831f92f6..a24d5527 100644 --- a/cfrontend/C2C.ml +++ b/cfrontend/C2C.ml @@ -390,7 +390,7 @@ let rec convertExpr env e = unsupported "'long long' integer literal"; Eval(Vint(convertInt i), ty) | C.EConst(C.CFloat(f, k, _)) -> - if k = C.FLongDouble then + if k = C.FLongDouble && not !Clflags.option_flongdouble then unsupported "'long double' floating-point literal"; Eval(Vfloat(coqfloat_of_camlfloat f), ty) | C.EConst(C.CStr s) -> |