WITH REPORT; USE REPORT;
PROCEDURE C64109A IS
BEGIN
TEST ("C64109A", "CHECK THAT ARRAYS WHICH ARE COMPONENTS OF " &
"RECORDS ARE PASSED CORRECTLY TO SUBPROGRAMS");
DECLARE
TYPE ARRAY_TYPE IS ARRAY (POSITIVE RANGE <>) OF INTEGER;
SUBTYPE ARRAY_SUBTYPE IS ARRAY_TYPE(1..IDENT_INT(5));
TYPE RECORD_TYPE IS
RECORD
I : INTEGER;
A : ARRAY_SUBTYPE;
END RECORD;
REC : RECORD_TYPE := (I => 23,
A => (1..3 => IDENT_INT(7), 4..5 => 9));
BOOL : BOOLEAN;
PROCEDURE P1 (ARR : ARRAY_TYPE) IS
BEGIN
IF ARR /= (7, 7, 7, 9, 9) THEN
FAILED ("IN PARAMETER NOT PASSED CORRECTLY");
END IF;
IF ARR'FIRST /= IDENT_INT(1) OR
ARR'LAST /= IDENT_INT(5) THEN
FAILED ("WRONG BOUNDS FOR IN PARAMETER");
END IF;
END P1;
FUNCTION F1 (ARR : ARRAY_TYPE) RETURN BOOLEAN IS
BEGIN
IF ARR /= (7, 7, 7, 9, 9) THEN
FAILED ("IN PARAMETER NOT PASSED CORRECTLY TO FN");
END IF;
IF ARR'FIRST /= IDENT_INT(1) OR
ARR'LAST /= IDENT_INT(5) THEN
FAILED ("WRONG BOUNDS FOR IN PARAMETER FOR FN");
END IF;
RETURN TRUE;
END F1;
PROCEDURE P2 (ARR : IN OUT ARRAY_TYPE) IS
BEGIN
IF ARR /= (7, 7, 7, 9, 9) THEN
FAILED ("IN OUT PARAMETER NOT PASSED " &
"CORRECTLY");
END IF;
IF ARR'FIRST /= IDENT_INT(1) OR
ARR'LAST /= IDENT_INT(5) THEN
FAILED ("WRONG BOUNDS FOR IN OUT PARAMETER");
END IF;
ARR := (ARR'RANGE => 5);
END P2;
PROCEDURE P3 (ARR : OUT ARRAY_TYPE) IS
BEGIN
IF ARR'FIRST /= IDENT_INT(1) OR
ARR'LAST /= IDENT_INT(5) THEN
FAILED ("WRONG BOUNDS FOR OUT PARAMETER");
END IF;
ARR := (ARR'RANGE => 3);
END P3;
BEGIN
P1 (REC.A);
IF REC.A /= (7, 7, 7, 9, 9) THEN
FAILED ("IN PARAM CHANGED BY PROCEDURE");
END IF;
BOOL := F1 (REC.A);
IF REC.A /= (7, 7, 7, 9, 9) THEN
FAILED ("IN PARAM CHANGED BY FUNCTION");
END IF;
P2 (REC.A);
IF REC.A /= (5, 5, 5, 5, 5) THEN
FAILED ("IN OUT PARAM RETURNED INCORRECTLY");
END IF;
P3 (REC.A);
IF REC.A /= (3, 3, 3, 3, 3) THEN
FAILED ("OUT PARAM RETURNED INCORRECTLY");
END IF;
END;
RESULT;
END C64109A;