gomp-20050608-branch/gcc/testsuite/ada/acats/tests/c2/c23003b.tst

   1 -- C23003B.TST
   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 NAME OF A LIBRARY UNIT PACKAGE AND THE NAME OF A LIBRARY
  27 -- SUBPROGRAM CAN BE AS LONG AS THE LONGEST IDENTIFIER ALLOWED BY
  28 -- AN IMPLEMENTATION.
  29
  30 -- JBG 5/26/85
  31 -- DTN 3/25/92  CONSOLIDATION OF C23003B.TST AND C23003C.TST.
  32 -- KAS 11/04/95 CHANGE "LINE" TO "IDENTIFIER"
  33
  34 PACKAGE
  35 $BIG_ID1
  36 IS
  37   A : INTEGER := 1;
  38 END
  39 $BIG_ID1
  40 ;
  41 PACKAGE
  42 $BIG_ID2
  43 IS
  44   B : INTEGER := 2;
  45 END
  46 $BIG_ID2
  47 ;
  48
  49 PROCEDURE
  50 $BIG_ID3
  51      (X : OUT INTEGER) IS
  52 BEGIN
  53      X := 1;
  54 END
  55 $BIG_ID3
  56 ;
  57 PROCEDURE
  58 $BIG_ID4
  59      (X : OUT INTEGER) IS
  60 BEGIN
  61      X := 2;
  62 END
  63 $BIG_ID4
  64 ;
  65
  66 WITH
  67 $BIG_ID1
  68 ,
  69 $BIG_ID2
  70 ,
  71 $BIG_ID3
  72 ,
  73 $BIG_ID4
  74 ;
  75 USE
  76 $BIG_ID1
  77 ,
  78 $BIG_ID2
  79 ;
  80
  81 WITH REPORT; USE REPORT;
  82 PROCEDURE C23003B IS
  83      X1, X2 : INTEGER := 0;
  84 BEGIN
  85      TEST ("C23003B", "CHECK LONGEST POSSIBLE IDENTIFIER CAN BE USED " &
  86                       "FOR LIBRARY PACKAGE AND SUBPROGRAM");
  87
  88      IF A + IDENT_INT(1) /= B THEN
  89           FAILED ("INCORRECT PACKAGE IDENTIFICATION");
  90      END IF;
  91
  92
  93 $BIG_ID3
  94           (X1);
  95 $BIG_ID4
  96           (X2);
  97
  98      IF X1 + IDENT_INT(1) /= X2 THEN
  99           FAILED ("INCORRECT PROCEDURE IDENTIFICATION");
 100      END IF;
 101
 102      RESULT;
 103 END C23003B;