URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [ada/] [acats/] [tests/] [c9/] [c95074c.ada] - Rev 294
Go to most recent revision | Compare with Previous | Blame | View Log
-- C95074C.ADA -- Grant of Unlimited Rights -- -- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, -- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained -- unlimited rights in the software and documentation contained herein. -- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making -- this public release, the Government intends to confer upon all -- recipients unlimited rights equal to those held by the Government. -- These rights include rights to use, duplicate, release or disclose the -- released technical data and computer software in whole or in part, in -- any manner and for any purpose whatsoever, and to have or permit others -- to do so. -- -- DISCLAIMER -- -- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR -- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED -- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE -- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE -- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A -- PARTICULAR PURPOSE OF SAID MATERIAL. --* -- CHECK THAT 'FIRST, 'LAST, 'LENGTH, AND 'RANGE, CAN BE APPLIED TO AN -- OUT PARAMETER OR OUT PARAMETER SUBCOMPONENT THAT DOES NOT HAVE AN -- ACCESS TYPE. -- JWC 6/25/85 WITH REPORT; USE REPORT; PROCEDURE C95074C IS BEGIN TEST ("C95074C", "CHECK THAT ATTRIBUTES MAY BE APPLIED TO " & "NON-ACCESS FORMAL OUT PARAMETERS"); DECLARE TYPE ARR IS ARRAY (1 .. 10) OF NATURAL; TYPE REC IS RECORD A : ARR; END RECORD; A1 : ARR; R1 : REC; TASK T1 IS ENTRY E (A2 : OUT ARR; R2 : OUT REC); END T1; TASK BODY T1 IS BEGIN ACCEPT E (A2 : OUT ARR; R2 : OUT REC) DO IF A2'FIRST /= 1 THEN FAILED ("WRONG VALUE FOR A2'FIRST"); END IF; IF A2'LAST /= 10 THEN FAILED ("WRONG VALUE FOR A2'LAST"); END IF; IF A2'LENGTH /= 10 THEN FAILED ("WRONG VALUE FOR A2'LENGTH"); END IF; IF (1 NOT IN A2'RANGE) OR (10 NOT IN A2'RANGE) OR (0 IN A2'RANGE) OR (11 IN A2'RANGE) THEN FAILED ("WRONG VALUE FOR A2'RANGE"); END IF; IF R2.A'FIRST /= 1 THEN FAILED ("WRONG VALUE FOR R2.A'FIRST"); END IF; IF R2.A'LAST /= 10 THEN FAILED ("WRONG VALUE FOR R2.A'LAST"); END IF; IF R2.A'LENGTH /= 10 THEN FAILED ("WRONG VALUE FOR R2.A'LENGTH"); END IF; IF (1 NOT IN R2.A'RANGE) OR (10 NOT IN R2.A'RANGE) OR (0 IN R2.A'RANGE) OR (11 IN R2.A'RANGE) THEN FAILED ("WRONG VALUE FOR R2.A'RANGE"); END IF; END E; END T1; BEGIN T1.E (A1,R1); END; RESULT; END C95074C;
Go to most recent revision | Compare with Previous | Blame | View Log