1-- A83C01I.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-- CHECK THAT COMPONENT NAMES MAY BE THE SAME AS NAMES OF 26-- LOOP PARAMETERS. 27 28-- RM 24 JUNE 1980 29-- JRK 10 NOV 1980 30-- RM 01 JAN 1982 31 32 33WITH REPORT; 34PROCEDURE A83C01I IS 35 36 USE REPORT; 37 38BEGIN 39 40 TEST( "A83C01I" , "CHECK THAT COMPONENT NAMES MAY BE THE SAME AS" & 41 " NAMES OF LOOP PARAMETERS" ) ; 42 43 44 45 -- TEST FOR LOOP PARAMETERS 46 47 48 DECLARE 49 50 TYPE R1A IS 51 RECORD 52 LOOP3 : INTEGER ; 53 END RECORD ; 54 55 TYPE R1 IS 56 RECORD 57 LOOP1 : INTEGER ; 58 LOOP2 : R1A ; 59 END RECORD ; 60 61 A1 : R1 := ( 3 , ( LOOP3 => 7 ) ); 62 63 BEGIN 64 65 FOR LOOP1 IN 0..1 LOOP 66 67 FOR LOOP2 IN 0..2 LOOP 68 69 FOR LOOP3 IN 0..3 LOOP 70 71 A1.LOOP1 := A1.LOOP2.LOOP3 ; 72 73 DECLARE 74 75 TYPE R1A IS 76 RECORD 77 LOOP3 : INTEGER ; 78 LOOP4 : INTEGER ; 79 END RECORD ; 80 81 TYPE R1 IS 82 RECORD 83 LOOP1 : INTEGER ; 84 LOOP2 : R1A ; 85 END RECORD ; 86 87 A1 : R1 := ( 3 , ( 6 , 7 ) ); 88 89 BEGIN 90 91 FOR LOOP4 IN 0..4 LOOP 92 93 A1.LOOP1 := A1.LOOP2.LOOP3 + 94 A1.LOOP2.LOOP4 ; 95 96 END LOOP ; 97 98 END ; 99 100 END LOOP ; 101 102 END LOOP ; 103 104 END LOOP ; 105 106 END ; 107 108 109 110 RESULT; 111 112END A83C01I; 113