1------------------------------------------------------------------------------ 2-- -- 3-- GNAT COMPILER COMPONENTS -- 4-- -- 5-- I N T E R F A C E S . F O R T R A N -- 6-- -- 7-- S p e c -- 8-- -- 9-- This specification is derived from the Ada Reference Manual for use with -- 10-- GNAT. In accordance with the copyright of that document, you can freely -- 11-- copy and modify this specification, provided that if you redistribute a -- 12-- modified version, any changes that you have made are clearly indicated. -- 13-- -- 14------------------------------------------------------------------------------ 15 16with Ada.Numerics.Generic_Complex_Types; 17pragma Elaborate_All (Ada.Numerics.Generic_Complex_Types); 18 19package Interfaces.Fortran is 20 pragma Pure; 21 22 type Fortran_Integer is new Integer; 23 type Real is new Float; 24 type Double_Precision is new Long_Float; 25 26 type Logical is new Boolean; 27 for Logical'Size use Integer'Size; 28 pragma Convention (Fortran, Logical); 29 -- As required by Fortran standard, stand alone logical allocates same 30 -- space as integer (but what about the array case???). The convention 31 -- is important, since in Fortran, Booleans have zero/non-zero semantics 32 -- for False/True, and the pragma Convention (Fortran) activates the 33 -- special handling required in this case. 34 35 package Single_Precision_Complex_Types is 36 new Ada.Numerics.Generic_Complex_Types (Real); 37 38 package Double_Precision_Complex_Types is 39 new Ada.Numerics.Generic_Complex_Types (Double_Precision); 40 41 type Complex is new Single_Precision_Complex_Types.Complex; 42 43 type Double_Complex is new Double_Precision_Complex_Types.Complex; 44 45 subtype Imaginary is Single_Precision_Complex_Types.Imaginary; 46 i : Imaginary renames Single_Precision_Complex_Types.i; 47 j : Imaginary renames Single_Precision_Complex_Types.j; 48 49 type Character_Set is new Character; 50 51 type Fortran_Character is array (Positive range <>) of Character_Set; 52 53 function To_Fortran (Item : Character) return Character_Set; 54 function To_Ada (Item : Character_Set) return Character; 55 56 function To_Fortran (Item : String) return Fortran_Character; 57 function To_Ada (Item : Fortran_Character) return String; 58 59 procedure To_Fortran 60 (Item : String; 61 Target : out Fortran_Character; 62 Last : out Natural); 63 64 procedure To_Ada 65 (Item : Fortran_Character; 66 Target : out String; 67 Last : out Natural); 68 69end Interfaces.Fortran; 70