Adding default value for the discriminant

AdaCore · Oct 20, 2024 · 5c5c39d · 5c5c39d
1 parent de435e1
commit 5c5c39d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/content/courses/advanced-ada/parts/data_types/records.rst b/content/courses/advanced-ada/parts/data_types/records.rst
@@ -2951,7 +2951,7 @@ statement. For example:
           V : Float;
        end record;
 
-       type Device (State : Device_State) is
+       type Device (State : Device_State := Off) is
        record
           case State is
              when Off =>