| 1 |
694 |
jeremybenn |
c { dg-do compile }
|
| 2 |
|
|
c { dg-options "-std=legacy" }
|
| 3 |
|
|
c
|
| 4 |
|
|
* Resent-From: Craig Burley <burley@gnu.org>
|
| 5 |
|
|
* Resent-To: craig@jcb-sc.com
|
| 6 |
|
|
* X-Delivered: at request of burley on mescaline.gnu.org
|
| 7 |
|
|
* Date: Wed, 16 Dec 1998 18:31:24 +0100
|
| 8 |
|
|
* From: Dieter Stueken <stueken@conterra.de>
|
| 9 |
|
|
* Organization: con terra GmbH
|
| 10 |
|
|
* To: fortran@gnu.org
|
| 11 |
|
|
* Subject: possible bug
|
| 12 |
|
|
* Content-Type: text/plain; charset=iso-8859-1
|
| 13 |
|
|
* X-Mime-Autoconverted: from 8bit to quoted-printable by mescaline.gnu.org id KAA09085
|
| 14 |
|
|
* X-UIDL: 72293bf7f9fac8378ec7feca2bccbce2
|
| 15 |
|
|
*
|
| 16 |
|
|
* Hi,
|
| 17 |
|
|
*
|
| 18 |
|
|
* I'm about to compile a very old, very ugly Fortran program.
|
| 19 |
|
|
* For one part I got:
|
| 20 |
|
|
*
|
| 21 |
|
|
* f77: Internal compiler error: program f771 got fatal signal 6
|
| 22 |
|
|
*
|
| 23 |
|
|
* instead of any detailed error message. I was able to break down the
|
| 24 |
|
|
* problem to the following source fragment:
|
| 25 |
|
|
*
|
| 26 |
|
|
* -------------------------------------------
|
| 27 |
|
|
PROGRAM WAP
|
| 28 |
|
|
|
| 29 |
|
|
integer(kind=8) ios
|
| 30 |
|
|
character*80 name
|
| 31 |
|
|
|
| 32 |
|
|
name = 'blah'
|
| 33 |
|
|
open(unit=8,status='unknown',file=name,form='formatted',
|
| 34 |
|
|
F iostat=ios)
|
| 35 |
|
|
|
| 36 |
|
|
END
|
| 37 |
|
|
* -------------------------------------------
|
| 38 |
|
|
*
|
| 39 |
|
|
* The problem seems to be caused by the "integer(kind=2) ios" declaration.
|
| 40 |
|
|
* So far I solved it by simply using a plain integer instead.
|
| 41 |
|
|
*
|
| 42 |
|
|
* I'm running gcc on a Linux system compiled/installed
|
| 43 |
|
|
* with no special options:
|
| 44 |
|
|
*
|
| 45 |
|
|
* -> g77 -v
|
| 46 |
|
|
* g77 version 0.5.23
|
| 47 |
|
|
* Driving: g77 -v -c -xf77-version /dev/null -xnone
|
| 48 |
|
|
* Reading specs from /usr/lib/gcc-lib/i686-pc-linux-gnulibc1/2.8.1/specs
|
| 49 |
|
|
* gcc version 2.8.1
|
| 50 |
|
|
* /usr/lib/gcc-lib/i686-pc-linux-gnulibc1/2.8.1/cpp -lang-c -v -undef
|
| 51 |
|
|
* -D__GNUC__=2 -D__GNUC_MINOR__=8 -D__ELF__ -D__unix__ -D__linux__
|
| 52 |
|
|
* -D__unix -D__linux -Asystem(posix) -D_LANGUAGE_FORTRAN -traditional
|
| 53 |
|
|
* -Di386 -Di686 -Asystem(unix) -Acpu(i386) -Amachine(i386) -D__i386__
|
| 54 |
|
|
* -D__i686__ -Asystem(unix) -Acpu(i386) -Amachine(i386) /dev/null
|
| 55 |
|
|
* /dev/null
|
| 56 |
|
|
* GNU CPP version 2.8.1 (i386 GNU/Linux with ELF)
|
| 57 |
|
|
* #include "..." search starts here:
|
| 58 |
|
|
* #include <...> search starts here:
|
| 59 |
|
|
* /usr/local/include
|
| 60 |
|
|
* /usr/i686-pc-linux-gnulibc1/include
|
| 61 |
|
|
* /usr/lib/gcc-lib/i686-pc-linux-gnulibc1/2.8.1/include
|
| 62 |
|
|
* /usr/include
|
| 63 |
|
|
* End of search list.
|
| 64 |
|
|
* /usr/lib/gcc-lib/i686-pc-linux-gnulibc1/2.8.1/f771 -fnull-version
|
| 65 |
|
|
* -quiet -dumpbase g77-version.f -version -fversion -o /tmp/cca24911.s
|
| 66 |
|
|
* /dev/null
|
| 67 |
|
|
* GNU F77 version 2.8.1 (i686-pc-linux-gnulibc1) compiled by GNU C version
|
| 68 |
|
|
* 2.8.1.
|
| 69 |
|
|
* GNU Fortran Front End version 0.5.23
|
| 70 |
|
|
* as -V -Qy -o /tmp/cca24911.o /tmp/cca24911.s
|
| 71 |
|
|
* GNU assembler version 2.8.1 (i486-linux), using BFD version 2.8.1
|
| 72 |
|
|
* ld -m elf_i386 -dynamic-linker /lib/ld-linux.so.1 -o /tmp/cca24911
|
| 73 |
|
|
* /tmp/cca24911.o /usr/lib/crt1.o /usr/lib/crti.o
|
| 74 |
|
|
* /usr/lib/gcc-lib/i686-pc-linux-gnulibc1/2.8.1/crtbegin.o
|
| 75 |
|
|
* -L/usr/lib/gcc-lib/i686-pc-linux-gnulibc1/2.8.1 -L/usr -lg2c -lm -lgcc
|
| 76 |
|
|
* -lc -lgcc /usr/lib/gcc-lib/i686-pc-linux-gnulibc1/2.8.1/crtend.o
|
| 77 |
|
|
* /usr/lib/crtn.o
|
| 78 |
|
|
* /tmp/cca24911
|
| 79 |
|
|
* __G77_LIBF77_VERSION__: 0.5.23
|
| 80 |
|
|
* @(#)LIBF77 VERSION 19970919
|
| 81 |
|
|
* __G77_LIBI77_VERSION__: 0.5.23
|
| 82 |
|
|
* @(#) LIBI77 VERSION pjw,dmg-mods 19980405
|
| 83 |
|
|
* __G77_LIBU77_VERSION__: 0.5.23
|
| 84 |
|
|
* @(#) LIBU77 VERSION 19970919
|
| 85 |
|
|
*
|
| 86 |
|
|
*
|
| 87 |
|
|
* Regards, Dieter.
|
| 88 |
|
|
* --
|
| 89 |
|
|
* Dieter Stüken, con terra GmbH, Münster
|
| 90 |
|
|
* stueken@conterra.de stueken@qgp.uni-muenster.de
|
| 91 |
|
|
* http://www.conterra.de/ http://qgp.uni-muenster.de/~stueken
|
| 92 |
|
|
* (0)251-980-2027 (0)251-83-334974
|
