Date: Sun, 23 May 1999 10:54:03 +0100 (BST) From: Doug Rabson <dfr@nlsystems.com> To: Steve Price <sprice@hiwaay.net> Cc: freebsd-alpha@freebsd.org Subject: Re: anyone using f77 on an Alpha? Message-ID: <Pine.BSF.4.05.9905231052030.447-100000@herring.nlsystems.com> In-Reply-To: <Pine.OSF.4.10.9905221840520.4232-100000@fly.HiWAAY.net>
index | next in thread | previous in thread | raw e-mail
On Sat, 22 May 1999, Steve Price wrote:
> I'm problems getting a simple fortran program to run. It
> compiles and run on an Intel box. It compiles and bails
> on an Alpha box. Anyone seeing the same thing as below?
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):
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
help
Want to link to this message? Use this
URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?Pine.BSF.4.05.9905231052030.447-100000>