add missing fall through case

camfort · Sep 4, 2024 · 1fde26a · 1fde26a
1 parent 8776f07
commit 1fde26a
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Language/Fortran/Repr/Value/Machine.hs b/src/Language/Fortran/Repr/Value/Machine.hs
@@ -31,3 +31,4 @@ fromConstReal (MkFScalarValue (FSVReal (FReal4 a))) = Just $ floatToDouble a
     floatToDouble :: Float -> Double
     floatToDouble = realToFrac
 fromConstReal (MkFScalarValue (FSVReal (FReal8 a))) = Just $ a
+fromConstReal _ = Nothing