Changeset 7568e5c for doc/theses/jiada_liang_MMath/test.adb

Timestamp:

Aug 8, 2024, 10:39:40 PM (13 hours ago)

Author:

JiadaL <j82liang@…>

Branches:

master

Children:

acab1bd

Parents:

c1c0efdb

Message:

Minor update on the thesis (add auto initialization and update future work

File:

• doc/theses/jiada_liang_MMath/test.adb (modified) (2 diffs)

doc/theses/jiada_liang_MMath/test.adb

@@ -2 +2 @@
 -- with Ada.Standard; use Ada.Standard;
 procedure test is
+        type GBR is (  Green, Blue, Red );
         type RGB is ( Red, Green, Blue );
-        for RGB use ( Red => 10, Green => 20, Blue => 30 );
+        for RGB use ( Red => 10, Green => 20, Blue => 21 );
         Colour : RGB := Red;
         
@@ -95 +96 @@
         
         if B then null; end if;
+
+        B := False;
+        Colour := Green;
+
+        Put_Line ( Boolean'Image( B ) & " " );
+        Put_Line ( RGB'Image( RGB'Enum_Val( 10 ) ) & " " );
 end test;