815f44d0cd
2007-04-06 Geert Bosch <bosch@adacore.com> Robert Dewar <dewar@adacore.com> * i-fortra.ads: Add Double_Complex type. * impunit.adb: (Is_Known_Unit): New function Add Gnat.Byte_Swapping Add GNAT.SHA1 Add new Ada 2005 units Ada.Numerics.Generic_Complex_Arrays, Ada.Numerics.Generic_Real_Arrays, Ada.Numerics.Complex_Arrays, Ada.Numerics.Real_Arrays, Ada.Numerics.Long_Complex_Arrays, Ada.Numerics.Long_Long_Complex_Arrays, Ada.Numerics.Long_Long_Real_Arrays and Ada.Numerics.Long_Real_Arrays * impunit.ads (Is_Known_Unit): New function * a-ngcoar.adb, a-ngcoar.ads, a-ngrear.adb, a-ngrear.ads, a-nlcoar.ads, a-nllcar.ads, a-nllrar.ads, a-nlrear.ads, a-nucoar.ads, a-nurear.ads, g-bytswa.adb, g-bytswa-x86.adb, g-bytswa.ads, g-sha1.adb, g-sha1.ads, i-forbla.ads, i-forlap.ads, s-gearop.adb, s-gearop.ads, s-gecobl.adb, s-gecobl.ads, s-gecola.adb, s-gecola.ads, s-gerebl.adb, s-gerebl.ads, s-gerela.adb, s-gerela.ads: New files. * Makefile.rtl: Add g-bytswa, g-sha1, a-fzteio and a-izteio * a-fzteio.ads, a-izteio.ads: New Ada 2005 run-time units. From-SVN: r123579
70 lines
2.9 KiB
Ada
70 lines
2.9 KiB
Ada
------------------------------------------------------------------------------
|
|
-- --
|
|
-- 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;
|