Portability Issues

Sather - A Language Tutorial
Prev | Chapter 13. Interfacing with Fortran | Next

# 13.5. Portability Issues

This section discusses the portability of the Sather/Fortran interface. See unnamedlink about Various name binding portability issues. Issues relevant to code portability are addressed here.

## 13.5.1. Portability of the Interface Implementation Code

It is important to distinguish between portability of the Sather compiler module that implements the Sather/Fortran interface and the portability of the code it generates. The Fortran 77 interface module is written entirely in Sather and is integrated with the ICSI Sather compiler. The Fortran interface should be available on all platforms where the ICSI Sather compiler is available. In particular, it is available on most UNIX platforms.

## 13.5.2. Portability of the Generated Code

The Fortran 77 standards says that all Fortran 77 types except for COMPLEX, DOUBLE PRECISION, and CHARACTER of any flavor occupy a single "unit" of storage space. COMPLEX and DOUBLE PRECISION types take two "units" of storage. This may need to be adjusted accordingly when porting the Sather compiler to a different platform. A modification to "System/Common/fortran.h" may be necessary. "System/Common/fortran.h" contains a set of definitions for Fortran storage types used by the Sather/Fortran interface:

    typedef long int    F_INTEGER;
    typedef long int    F_LOGICAL;
    typedef float       F_REAL;
    typedef double      F_DOUBLE;
    typedef char        F_CHARACTER;
    typedef long int    F_LENGTH;
    typedef struct {
       F_REAL re, im;
    } F_COMPLEX_struct;
    typedef F_COMPLEX_struct F_COMPLEX;
    ...

This proves to be adequate for most UNIX platforms. On the Cray, however, both float and double types occupy the same storage, and to conform to Fortran 77 specification, fortran.h needs to be edited to define F_DOUBLE as "long double". For the Macintosh, however, it should be defined as "short double."

This is a full set of C types that are used by the interface as return and argument types:

    F_INTEGER
    F_LOGICAL
    F_REAL
    F_DOUBLE
    F_CHARACTER
    F_STRING
    F_LENGTH
    F_COMPLEX
    F_HANDLER
    F_ROUT
    integer or integer*4
    logical
    real
    double
    character or character*1
    character*n
    string length (same as F_INTEGER)
    complex
    call argument for a subroutine with alternate returns
    a routine passed as argument

Array types are represented as pointer to corresponding scalar types.

Prev | Home | Next
Parameter Passing | Up | Interfacing with ANSI C