old-autovect-branch/gcc/testsuite/ada/acats/tests/cz/cz1102a.ada

   1 -- CZ1102A.ADA
   2 --
   3 --                             Grant of Unlimited Rights
   4 --
   5 --     Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687,
   6 --     F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained
   7 --     unlimited rights in the software and documentation contained herein.
   8 --     Unlimited rights are defined in DFAR 252.227-7013(a)(19).  By making
   9 --     this public release, the Government intends to confer upon all
  10 --     recipients unlimited rights  equal to those held by the Government.
  11 --     These rights include rights to use, duplicate, release or disclose the
  12 --     released technical data and computer software in whole or in part, in
  13 --     any manner and for any purpose whatsoever, and to have or permit others
  14 --     to do so.
  15 --
  16 --                                    DISCLAIMER
  17 --
  18 --     ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR
  19 --     DISCLOSED ARE AS IS.  THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED
  20 --     WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE
  21 --     SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE
  22 --     OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A
  23 --     PARTICULAR PURPOSE OF SAID MATERIAL.
  24 --*
  25 --
  26 -- CHECK THAT THE DYNAMIC VALUE ROUTINES OF THE REPORT PACKAGE WORK
  27 --   CORRECTLY.
  28
  29 -- JRK 8/7/81
  30 -- JRK 10/27/82
  31 -- RLB 03/20/00 - Added checks for Integer'First and Integer'Last.
  32
  33 WITH REPORT;
  34 USE REPORT;
  35
  36 PROCEDURE CZ1102A IS
  37
  38 BEGIN
  39
  40      TEST ("CZ1102A", "CHECK THAT THE DYNAMIC VALUE ROUTINES OF " &
  41                          "THE REPORT PACKAGE WORK CORRECTLY");
  42
  43      IF NOT EQUAL (0, 0) OR
  44         EQUAL (0, 1) OR
  45         NOT EQUAL (1, 1) OR
  46         NOT EQUAL (3, 3) OR
  47         NOT EQUAL (4, 4) OR
  48         NOT EQUAL (-1, -1) OR
  49         NOT EQUAL (INTEGER'FIRST, INTEGER'FIRST) OR
  50         NOT EQUAL (INTEGER'LAST, INTEGER'LAST) OR
  51         EQUAL (-1, 0) THEN
  52           FAILED ("'EQUAL' NOT WORKING");
  53      END IF;
  54
  55      IF IDENT_INT (5) /= 5 THEN
  56           FAILED ("'IDENT_INT' NOT WORKING");
  57      END IF;
  58
  59      IF IDENT_CHAR ('E') /= 'E' THEN
  60           FAILED ("'IDENT_CHAR' NOT WORKING");
  61      END IF;
  62
  63      IF IDENT_BOOL (TRUE) /= TRUE THEN
  64           FAILED ("'IDENT_BOOL' NOT WORKING");
  65      END IF;
  66
  67      IF IDENT_STR ("") /= "" OR
  68         IDENT_STR ("K") /= "K" OR
  69         IDENT_STR ("PQRS") /= "PQRS" THEN
  70           FAILED ("'IDENT_STR' NOT WORKING");
  71      END IF;
  72
  73      RESULT;
  74
  75 END CZ1102A;