From aedfc53e9a783b8cc1091f5a6d6bb15317616646 Mon Sep 17 00:00:00 2001 From: Björn Persson Date: Sat, 1 Feb 2014 09:58:52 +0100 Subject: more testcases --- testsuite/sources/program_1/testcase.adb | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 testsuite/sources/program_1/testcase.adb (limited to 'testsuite/sources/program_1/testcase.adb') diff --git a/testsuite/sources/program_1/testcase.adb b/testsuite/sources/program_1/testcase.adb new file mode 100644 index 0000000..4121845 --- /dev/null +++ b/testsuite/sources/program_1/testcase.adb @@ -0,0 +1,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; -- cgit v1.2.3