tidy

camfort · Sep 12, 2024 · f49a12e · f49a12e
1 parent 55481c9
commit f49a12e
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/src/Language/Fortran/Analysis/DataFlow.hs b/src/Language/Fortran/Analysis/DataFlow.hs
@@ -425,10 +425,7 @@ genConstExpMap pf = ceMap
         -- changes to support that
         case Repr.runEvalFValuePure pvMap (Repr.evalExpr e) of
           Left _err -> Nothing
-          Right (a, _msgs) ->
-            case e of
-              ExpValue _ _ (ValVariable{}) -> Just a
-              _ -> Just a
+          Right (a, _msgs) -> Just a
 
 -- | Get constant-expression information and put it into the AST
 -- analysis annotation. Must occur after analyseBBlocks.