obtained gcc-4.6.4.tar.bz2 from upstream website;upstream

verified gcc-4.6.4.tar.bz2.sig;
imported gcc-4.6.4 source tree from verified upstream tarball.

downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.

if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.

1 files changed, 69 insertions, 0 deletions

diff --git a/gcc/ada/i-fortra.ads b/gcc/ada/i-fortra.ads
new file mode 100644
index 000000000..992eb2863
--- /dev/null
+++ b/gcc/ada/i-fortra.ads
@@ -0,0 +1,69 @@
+------------------------------------------------------------------------------
+--                                                                          --
+--                         GNAT COMPILER COMPONENTS                         --
+--                                                                          --
+--                   I N T E R F A C E S . F O R T R A N                    --
+--                                                                          --
+--                                 S p e c                                  --
+--                                                                          --
+-- This specification is derived from the Ada Reference Manual for use with --
+-- GNAT.  In accordance with the copyright of that document, you can freely --
+-- copy and modify this specification,  provided that if you redistribute a --
+-- modified version,  any changes that you have made are clearly indicated. --
+--                                                                          --
+------------------------------------------------------------------------------
+
+with Ada.Numerics.Generic_Complex_Types;
+pragma Elaborate_All (Ada.Numerics.Generic_Complex_Types);
+
+package Interfaces.Fortran is
+   pragma Pure;
+
+   type Fortran_Integer  is new Integer;
+   type Real             is new Float;
+   type Double_Precision is new Long_Float;
+
+   type Logical is new Boolean;
+   for Logical'Size use Integer'Size;
+   pragma Convention (Fortran, Logical);
+   --  As required by Fortran standard, stand alone logical allocates same
+   --  space as integer (but what about the array case???). The convention
+   --  is important, since in Fortran, Booleans have zero/non-zero semantics
+   --  for False/True, and the pragma Convention (Fortran) activates the
+   --  special handling required in this case.
+
+   package Single_Precision_Complex_Types is
+      new Ada.Numerics.Generic_Complex_Types (Real);
+
+   package Double_Precision_Complex_Types is
+      new Ada.Numerics.Generic_Complex_Types (Double_Precision);
+
+   type Complex is new Single_Precision_Complex_Types.Complex;
+
+   type Double_Complex is new Double_Precision_Complex_Types.Complex;
+
+   subtype Imaginary is Single_Precision_Complex_Types.Imaginary;
+   i : Imaginary renames Single_Precision_Complex_Types.i;
+   j : Imaginary renames Single_Precision_Complex_Types.j;
+
+   type Character_Set is new Character;
+
+   type Fortran_Character is array (Positive range <>) of Character_Set;
+
+   function To_Fortran (Item : Character)     return Character_Set;
+   function To_Ada     (Item : Character_Set) return Character;
+
+   function To_Fortran (Item : String)            return Fortran_Character;
+   function To_Ada     (Item : Fortran_Character) return String;
+
+   procedure To_Fortran
+     (Item   : String;
+      Target : out Fortran_Character;
+      Last   : out Natural);
+
+   procedure To_Ada
+     (Item   : Fortran_Character;
+      Target : out String;
+      Last   : out Natural);
+
+end Interfaces.Fortran;