OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [ada/] [acats/] [tests/] [ce/] [ce3406c.ada] - Blame information for rev 294

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 294 jeremybenn
-- CE3406C.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
-- OBJECTIVE:
26
--     CHECK THAT SKIP_PAGE RAISES END_ERROR WHEN THE FILE IS POSITIONED
27
--     BEFORE THE FILE TERMINATOR BUT NOT WHEN THE FILE IS POSITIONED
28
--     BEFORE THE FINAL PAGE TERMINATOR.
29
 
30
-- APPLICABILITY CRITERIA:
31
--     THIS TEST IS APPLICABLE ONLY TO IMPLEMENTATIONS WHICH SUPPORT
32
--     TEXT FILES.
33
 
34
-- HISTORY:
35
--     ABW 08/26/82
36
--     SPS 09/17/82
37
--     JBG 01/24/83
38
--     TBN 11/10/86  REVISED TEST TO OUTPUT A NOT_APPLICABLE
39
--                   RESULT WHEN FILES ARE NOT SUPPORTED.
40
--     JLH 09/24/87  CREATED NON-TEMPORARY FILE, REMOVED DEPENDENCE
41
--                   ON RESET, AND CHECKED CHARACTER READ IN.
42
 
43
WITH REPORT;
44
USE REPORT;
45
WITH TEXT_IO;
46
USE TEXT_IO;
47
 
48
PROCEDURE CE3406C IS
49
 
50
     INCOMPLETE : EXCEPTION;
51
     FILE : FILE_TYPE;
52
     CHAR : CHARACTER := ('C');
53
     ITEM_CHAR : CHARACTER;
54
     TWO : POSITIVE_COUNT := POSITIVE_COUNT(IDENT_INT(2));
55
 
56
BEGIN
57
 
58
     TEST ("CE3406C", "CHECK THAT SKIP_PAGE RAISES END_ERROR WHEN " &
59
                      "THE FILE IS POSITIONED BEFORE THE FILE " &
60
                      "TERMINATOR BUT NOT WHEN THE FILE IS " &
61
                      "POSITIONED BEFORE THE FINAL PAGE TERMINATOR");
62
 
63
-- CREATE AND INITIALIZE FILE
64
 
65
     BEGIN
66
          CREATE (FILE, OUT_FILE, LEGAL_FILE_NAME);
67
     EXCEPTION
68
          WHEN USE_ERROR =>
69
               NOT_APPLICABLE ("USE_ERROR RAISED ON TEXT CREATE " &
70
                               "WITH OUT_FILE MODE");
71
               RAISE INCOMPLETE;
72
          WHEN NAME_ERROR =>
73
               NOT_APPLICABLE ("NAME_ERROR RAISED ON TEXT CREATE " &
74
                               "WITH OUT_FILE MODE");
75
               RAISE INCOMPLETE;
76
          WHEN OTHERS =>
77
               FAILED ("UNEXPECTED EXCEPTION RAISED ON TEXT CREATE");
78
               RAISE INCOMPLETE;
79
     END;
80
 
81
     FOR I IN 1..2 LOOP
82
          FOR I IN 1..3 LOOP
83
               PUT (FILE,CHAR);
84
          END LOOP;
85
          NEW_LINE (FILE);
86
     END LOOP;
87
 
88
     CLOSE (FILE);
89
 
90
     BEGIN
91
          OPEN (FILE, IN_FILE, LEGAL_FILE_NAME);
92
     EXCEPTION
93
          WHEN USE_ERROR =>
94
               NOT_APPLICABLE ("USE_ERROR RAISED ON TEXT OPEN WITH " &
95
                               "IN_FILE MODE");
96
               RAISE INCOMPLETE;
97
     END;
98
 
99
-- START TEST
100
 
101
-- TEST SKIP_PAGE BEFORE FINAL PAGE TERMINATOR
102
 
103
     WHILE NOT END_OF_PAGE (FILE) LOOP
104
          GET (FILE, ITEM_CHAR);
105
          IF ITEM_CHAR /= 'C' THEN
106
               FAILED ("INCORRECT VALUE READ FROM FILE");
107
          END IF;
108
     END LOOP;
109
 
110
     BEGIN
111
          SKIP_PAGE (FILE);
112
     EXCEPTION
113
          WHEN END_ERROR =>
114
               FAILED ("RAISED END_ERROR BEFORE FINAL PAGE " &
115
                       "TERMINATOR - 1");
116
          WHEN OTHERS =>
117
               FAILED ("OTHER EXCEPTION RAISED - 1");
118
     END;
119
 
120
     IF PAGE (FILE) /= TWO THEN
121
          FAILED ("PAGE NOT SET TO TWO");
122
     END IF;
123
 
124
-- TEST SKIP_PAGE BEFORE FILE TERMINATOR
125
     BEGIN
126
          SKIP_PAGE (FILE);
127
          FAILED ("END_ERROR NOT RAISED");
128
     EXCEPTION
129
          WHEN END_ERROR =>
130
               NULL;
131
          WHEN OTHERS =>
132
               FAILED ("OTHER EXCEPTION RAISED - 2");
133
     END;
134
 
135
     BEGIN
136
          DELETE (FILE);
137
     EXCEPTION
138
          WHEN USE_ERROR =>
139
               NULL;
140
     END;
141
 
142
     RESULT;
143
 
144
EXCEPTION
145
     WHEN INCOMPLETE =>
146
          RESULT;
147
 
148
END CE3406C;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.