diff options
Diffstat (limited to 'gcc/ada/a-sequio.ads')
| -rw-r--r-- | gcc/ada/a-sequio.ads | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/a-sequio.ads b/gcc/ada/a-sequio.ads index 6d3b7d2b2ac..ece3ee13ea6 100644 --- a/gcc/ada/a-sequio.ads +++ b/gcc/ada/a-sequio.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- -- GNAT. The copyright notice above, and the license provisions that follow -- @@ -48,6 +48,10 @@ package Ada.Sequential_IO is (Element_Type'Has_Access_Values, "Element_Type for Sequential_IO instance has access values"); + pragma Compile_Time_Warning + (Element_Type'Has_Tagged_Values, + "Element_Type for Sequential_IO instance has tagged values"); + type File_Type is limited private; type File_Mode is (In_File, Out_File, Append_File); |