1-- 2-- CDDL HEADER START 3-- 4-- The contents of this file are subject to the terms of the 5-- Common Development and Distribution License (the "License"). 6-- You may not use this file except in compliance with the License. 7-- 8-- See LICENSE.txt included in this distribution for the specific 9-- language governing permissions and limitations under the License. 10-- 11-- When distributing Covered Code, include this CDDL HEADER in each 12-- file and include the License file at LICENSE.txt. 13-- If applicable, add the following below this CDDL HEADER, with the 14-- fields enclosed by brackets "[]" replaced with your own identifying 15-- information: Portions Copyright [yyyy] [name of copyright owner] 16-- 17-- CDDL HEADER END 18-- 19 20-- 21-- Copyright (c) 2017, Chris Fraire <cfraire@me.com>. 22-- 23 24with Ada.Text_IO; use Ada.Text_IO; 25procedure Hello is 26begin 27 Put_Line("Hello, world!"); 28 Put_Line(""" 29 Hello?"""); 30 Put_Line('?'); 31 Put_Line(' 32'); 33 Put(0); 34 Put(12); 35 Put(123_456); 36 Put(3.14159_26); 37 Put(2#1111_1111#); 38 Put(16#E#E1); 39 Put(16#F.FF#E+2); 40 Put_Line(); 41 Put_Line("Archimedes said ""Εύρηκα"""); 42end Hello; 43 44-- Test a URL that is not matched fully by a rule using just {URIChar} and 45-- {FnameChar}: 46-- https://msdn.microsoft.com/en-us/library/windows/desktop/ms633591(v=vs.85).aspx 47