Adding default value for the discriminant

AdaCore · Oct 13, 2024 · 300ea66 · 300ea66
1 parent c7516c0
commit 300ea66
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 =>