Rombobjörn

summaryrefslogtreecommitdiff
path: root/testsuite/sources/dual_library/testcase.adb
blob: df96cc3bb734e5085633f2b19f718dd8d2bb8d8e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
-- 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;

package body Testcase is

   function Year return String is
   begin
      return Year(Clock)'Img;
   end Year;

end Testcase;