> From: Greg Bek <[log in to unmask]>
> I tried a couple of different things before your final line of
> Ada.Text_Io.Put_Line ("Image is " & Month_Type'Image (Control_Data.Month));
> With Apex that raises constraint error, as the incorrect value is now
> being used.
GNAT 3.13p says Program_Error; interestingly, at the line
type ZZZ_Single_Value_Control_Type (Field : ZZZ_Control_Fields := Date) is
though the debugger shows the Put_Line in the call stack.
> I also tried
> case Control_Data.Month is
> when January .. December =>
> Ada.Text_Io.Put_Line ("Valid month");
> when others =>
> Ada.Text_Io.Put_Line ("Invalid month");
> end case;
> And got "Invalid Month" output.
GNAT says "Valid Month".