This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[PATCH] Fix Fortran frontend on hppa64
- To: gcc-patches at gcc dot gnu dot org
- Subject: [PATCH] Fix Fortran frontend on hppa64
- From: Craig P Prescott <prescott at phys dot ufl dot edu>
- Date: Sun, 21 Oct 2001 01:32:35 -0400
Hello;
Problem: with 3.0.1 configured with --host=hppa64-hp-hpux11.00:
$ echo " end" > junk.f
$ g77 -c junk.f
Assertion failed: ffetype_size (type) == sizeof (ffetargetInteger1), file
../../gcc-3.0.1/gcc/f/com.c, line 11596
f771: Internal error: Aborted
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://www.gnu.org/software/gcc/bugs.html> for instructions.
The patch below fixes the problem by not defining
FFETARGET_32bit_longs for pa64. Bootstrapped on hppa64-hp-hpux11.00.
The patches to the mainline and the 3.0 branch are identical. I
realize this is too late for 3.0.2, but hopefully this can be applied
on that branch after it reopens.
Thanks,
Craig
P.S. The 3.0.1 testsuite hangs on one of the tests in the c compiler
section - I will try to look into it and submit test results - but the
resulting compiler works quite well with the Fortran codes we have at
work.
2001-10-21 Craig Prescott <prescott@phys.ufl.edu>
* target.h (FFETARGET_32bit_longs): Don't define
for 64-bit hppa.
--- gcc/f/target.h.orig Sat Oct 20 23:55:32 2001
+++ gcc/f/target.h Sat Oct 20 23:56:40 2001
@@ -234,7 +234,7 @@ the Free Software Foundation, 59 Temple
#define FFETARGET_f2cTYLOGICAL2 13
#define FFETARGET_f2cTYQUAD 14
-#if !defined(__alpha__) && (!defined (_ARCH_PPC) || !defined (__64BIT__)) && (!defined(__sparc__) || (!defined(__sparcv9) && !defined(__arch64__))) && (!defined(__ia64__) || !defined(__LP64__)) && !defined(__s390x__)
+#if !defined(__alpha__) && (!defined (_ARCH_PPC) || !defined (__64BIT__)) && (!defined(__sparc__) || (!defined(__sparcv9) && !defined(__arch64__))) && (!defined(__ia64__) || !defined(__LP64__)) && (!defined(__hppa__) || !defined(__LP64__)) && !defined(__s390x__)
#define FFETARGET_32bit_longs
#endif