gcc/testsuite/gfortran.dg/g77/19981216-0.f

   1 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