Date: Sun, 23 May 1999 08:38:02 -0500 (CDT) From: Steve Price <sprice@hiwaay.net> To: Doug Rabson <dfr@nlsystems.com> Cc: freebsd-alpha@freebsd.org Subject: Re: anyone using f77 on an Alpha? Message-ID: <Pine.OSF.4.10.9905230827200.4232-100000@fly.HiWAAY.net> In-Reply-To: <Pine.BSF.4.05.9905231052030.447-100000@herring.nlsystems.com>
next in thread | previous in thread | raw e-mail | index | archive | help
On Sun, 23 May 1999, Doug Rabson wrote:
# There is some confusion about the width of various fortran types. The
# compiler is generating 32bit but the library is expecting 64bit (32bit is
# correct in this case I think). This patch seems to fix it (the test
# program runs anyway):
Yes this did the trick. Thanks Doug! It works for my little test
program and ports/graphics/pgplot (which is where I first noticed
the problem) on both the i386 and alpha port. Commit away. :)
# Index: g2c.h
# ===================================================================
# RCS file: /home/ncvs/src/gnu/lib/libg2c/g2c.h,v
# retrieving revision 1.1
# diff -u -r1.1 g2c.h
# --- g2c.h 1999/04/18 09:48:40 1.1
# +++ g2c.h 1999/05/23 09:47:24
# @@ -18,7 +18,7 @@
#
# /* F2C_INTEGER will normally be `int' but would be `long' on 16-bit systems */
# /* we assume short, float are OK */
# -typedef long int /* long int */ integer;
# +typedef int /* long int */ integer;
# typedef unsigned long int /* long */ uinteger;
# typedef char *address;
# typedef short int shortint;
# @@ -26,7 +26,7 @@
# typedef double doublereal;
# typedef struct { real r, i; } complex;
# typedef struct { doublereal r, i; } doublecomplex;
# -typedef long int /* long int */ logical;
# +typedef int /* long int */ logical;
# typedef short int shortlogical;
# typedef char logical1;
# typedef char integer1;
# @@ -52,9 +52,9 @@
# typedef short ftnlen;
# typedef short ftnint;
# #else
# -typedef long int /* long int */ flag;
# -typedef long int /* long int */ ftnlen;
# -typedef long int /* long int */ ftnint;
# +typedef int /* long int */ flag;
# +typedef int /* long int */ ftnlen;
# +typedef int /* long int */ ftnint;
# #endif
#
# /*external read, write*/
#
# --
# Doug Rabson Mail: dfr@nlsystems.com
# Nonlinear Systems Ltd. Phone: +44 181 442 9037
#
#
#
To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-alpha" in the body of the message
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?Pine.OSF.4.10.9905230827200.4232-100000>