From c50a759d564c47a58187194a9a8c11186a7c0c77 Mon Sep 17 00:00:00 2001
From: odow <o.dowson@gmail.com>
Date: Fri, 12 Apr 2024 17:07:58 +1200
Subject: [PATCH] [FileFormats.MPS] fix reading default bounds of INTORG
 variables

---
 src/FileFormats/MPS/MPS.jl                      |  2 ++
 test/FileFormats/MPS/MPS.jl                     |  9 +++++++++
 test/FileFormats/MPS/integer_default_bounds.mps | 11 +++++++++++
 3 files changed, 22 insertions(+)
 create mode 100644 test/FileFormats/MPS/integer_default_bounds.mps

diff --git a/src/FileFormats/MPS/MPS.jl b/src/FileFormats/MPS/MPS.jl
index a015d5d45f..21018a81c1 100644
--- a/src/FileFormats/MPS/MPS.jl
+++ b/src/FileFormats/MPS/MPS.jl
@@ -1472,6 +1472,8 @@ end
 function _set_intorg(data, column, column_name)
     if data.intorg_flag
         data.vtype[column] = VTYPE_INTEGER
+        # The default upper bound for variables in INTORG is `1`, not `Inf`...
+        data.col_upper[column] = 1.0
     elseif data.vtype[column] != VTYPE_CONTINUOUS
         error(
             "Variable $(column_name) appeared in COLUMNS outside an " *
diff --git a/test/FileFormats/MPS/MPS.jl b/test/FileFormats/MPS/MPS.jl
index 4641ae420d..47a525fbfc 100644
--- a/test/FileFormats/MPS/MPS.jl
+++ b/test/FileFormats/MPS/MPS.jl
@@ -191,6 +191,15 @@ function test_stacked_data()
     return
 end
 
+function test_integer_default_bounds()
+    model = MPS.Model()
+    MOI.read_from_file(model, joinpath(@__DIR__, "integer_default_bounds.mps"))
+    x = only(MOI.get(model, MOI.ListOfVariableIndices()))
+    ci = MOI.ConstraintIndex{MOI.VariableIndex,MOI.Interval{Float64}}(x.value)
+    @test MOI.get(model, MOI.ConstraintSet(), ci) == MOI.Interval(0.0, 1.0)
+    return
+end
+
 function test_free_integer()
     model = MPS.Model()
     MOI.read_from_file(model, joinpath(@__DIR__, "free_integer.mps"))
diff --git a/test/FileFormats/MPS/integer_default_bounds.mps b/test/FileFormats/MPS/integer_default_bounds.mps
new file mode 100644
index 0000000000..aaa193479e
--- /dev/null
+++ b/test/FileFormats/MPS/integer_default_bounds.mps
@@ -0,0 +1,11 @@
+NAME
+OBJSENSE MIN
+ROWS
+ N  obj
+COLUMNS
+    MARKER    'MARKER'                 'INTORG'
+    x         obj       1
+    MARKER    'MARKER'                 'INTEND'
+RHS
+BOUNDS
+ENDATA