testsuite/sources/steps/testcase.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

-- part of Comfignat's testsuite
-- Copyright 2014 B. Persson, Bjorn@Rombobeorn.se
--
-- This material is provided as is, with absolutely no warranty expressed
-- or implied. Any use is at your own risk.
--
-- Permission is hereby granted to use or copy this testsuite
-- for any purpose, provided the above notices are retained on all copies.
-- Permission to modify the code and to distribute modified code is granted,
-- provided the above notices are retained, and a notice that the code was
-- modified is included with the above copyright notice.


with Ada.Calendar; use Ada.Calendar;
with Ada.Text_IO; use Ada.Text_IO;

procedure Testcase is
begin
   Put_Line(Year(Clock)'Img);
end Testcase;