diff --git a/src/Language/Fortran/Repr/Value/Machine.hs b/src/Language/Fortran/Repr/Value/Machine.hs
index ac1c13b8..27bd188b 100644
--- a/src/Language/Fortran/Repr/Value/Machine.hs
+++ b/src/Language/Fortran/Repr/Value/Machine.hs
@@ -26,7 +26,6 @@ fromConstInt (MkFScalarValue (FSVInt a)) = Just $ withFInt a
 fromConstInt _          = Nothing
 
 fromConstReal :: FValue -> Maybe Double
--- convert Float to Double
 fromConstReal (MkFScalarValue (FSVReal (FReal4 a))) = Just $ floatToDouble a
   where
     floatToDouble :: Float -> Double