Dead
[official-gcc.git] / gomp-20050608-branch / gcc / testsuite / ada / acats / tests / ce / ce3406b.ada
blob95e7c7adb23e72be07e6a79e6d10e2fd42975202
1 -- CE3406B.ADA
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.
16 -- DISCLAIMER
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 CAN ONLY BE APPLIED TO FILES OF MODE
27 -- IN_FILE, MODE_ERROR IS RAISED FOR FILES OF MODE OUT_FILE.
29 -- APPLICABILITY CRITERIA:
30 -- THIS TEST IS APPLICABLE ONLY TO IMPLEMENTATIONS WHICH SUPPORT
31 -- TEXT FILE CREATE WITH OUT_FILE MODE.
33 -- HISTORY:
34 -- ABW 08/26/82
35 -- TBN 11/10/86 REVISED TEST TO OUTPUT A NON_APPLICABLE
36 -- RESULT WHEN FILES ARE NOT SUPPORTED.
37 -- JLH 09/24/87 CORRECTED EXCEPTION HANDLING.
39 WITH REPORT;
40 USE REPORT;
41 WITH TEXT_IO;
42 USE TEXT_IO;
44 PROCEDURE CE3406B IS
46 INCOMPLETE : EXCEPTION;
47 FILE : FILE_TYPE;
49 BEGIN
51 TEST ("CE3406B", "CHECK THAT SKIP_PAGE CAN ONLY BE " &
52 "APPLIED TO FILES OF MODE IN_FILE");
54 BEGIN
55 CREATE (FILE);
56 EXCEPTION
57 WHEN USE_ERROR =>
58 NOT_APPLICABLE ("USE_ERROR RAISED ON TEXT CREATE " &
59 "FOR TEMPORARY FILE WITH OUT_FILE MODE");
60 RAISE INCOMPLETE;
61 WHEN OTHERS =>
62 FAILED ("UNEXPECTED EXCEPTION RAISED ON TEXT CREATE");
63 RAISE INCOMPLETE;
64 END;
66 BEGIN
67 SKIP_PAGE (FILE);
68 FAILED ("MODE_ERROR NOT RAISED FOR OUT_FILE");
69 EXCEPTION
70 WHEN MODE_ERROR =>
71 NULL;
72 WHEN OTHERS =>
73 FAILED ("OTHER EXCEPTION RAISED FOR OUT_FILE");
74 END;
76 BEGIN
77 SKIP_PAGE (STANDARD_OUTPUT);
78 FAILED ("MODE_ERROR RAISED FOR STANDARD_OUTPUT");
79 EXCEPTION
80 WHEN MODE_ERROR =>
81 NULL;
82 WHEN OTHERS =>
83 FAILED ("OTHER EXCEPTION RAISED FOR STANDARD_OUTPUT");
84 END;
86 BEGIN
87 SKIP_PAGE (CURRENT_OUTPUT);
88 FAILED ("MODE_ERROR NOT RAISED FOR CURRENT_OUTPUT");
89 EXCEPTION
90 WHEN MODE_ERROR =>
91 NULL;
92 WHEN OTHERS =>
93 FAILED ("OTHER EXCEPTION RAISED FOR CURRENT_OUTPUT");
94 END;
96 CLOSE (FILE);
98 RESULT;
100 EXCEPTION
101 WHEN INCOMPLETE =>
102 RESULT;
104 END CE3406B;