From 5bd841fa5b2ca26925092e4f79f7f897c9f5b7c7 Mon Sep 17 00:00:00 2001
From: Dominic Orchard <dom.orchard@gmail.com>
Date: Wed, 4 Sep 2024 18:20:24 +0200
Subject: [PATCH] add missing fall through case

---
 src/Language/Fortran/Repr/Value/Machine.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Language/Fortran/Repr/Value/Machine.hs b/src/Language/Fortran/Repr/Value/Machine.hs
index 27bd188b..0829ce44 100644
--- 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
\ No newline at end of file