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

   1 c { dg-do compile }
   2 c { dg-options "-std=legacy" }
   3 c
   4 * Mailing-List: contact egcs-bugs-help@egcs.cygnus.com; run by ezmlm
   5 * Precedence: bulk
   6 * Sender: owner-egcs-bugs@egcs.cygnus.com
   7 * From: "Bjorn R. Bjornsson" <brb@halo.hi.is>
   8 * Subject: g77 char expr. as arg to subroutine bug
   9 * To: egcs-bugs@egcs.cygnus.com
  10 * Date: Tue, 25 May 1999 14:45:56 +0000 (GMT)
  11 * Content-Type: text/plain; charset=US-ASCII
  12 * X-UIDL: 06000c94269ed6dfe826493e52a818b9
  13 *
  14 * The following bug is in all snapshots starting
  15 * from April 18.  I have only tested this on Alpha linux,
  16 * and with FFECOM_FASTER_ARRAY_REFS set to 1.
  17 *
  18 * Run the following through g77:
  19 *
  20       subroutine a
  21       character*2 string1
  22       character*2 string2
  23       character*4 string3
  24       string1 = 's1'
  25       string2 = 's2'
  26 c
  27 c the next 2 lines are ok.
  28       string3 = (string1 // string2)
  29       call b(string1//string2)
  30 c
  31 c this line gives gcc/f/com.c:10660: failed assertion `hook'
  32       call b((string1//string2))
  33       end
  34 *
  35 * the output from:
  36 *
  37 * /usr/local/egcs-19990418/bin/g77 --verbose -c D.f
  38 *
  39 * is:
  40 *
  41 * on egcs-2.93.19 19990418 (gcc2 ss-980929 experimental) (from FSF-g77 version 0.5.24-19990418)
  42 * Reading specs from /usr/local/egcs-19990418/lib/gcc-lib/alphaev56-unknown-linux-gnu/egcs-2.93.19/specs
  43 * gcc version egcs-2.93.19 19990418 (gcc2 ss-980929 experimental)
  44 *  /usr/local/egcs-19990418/lib/gcc-lib/alphaev56-unknown-linux-gnu/egcs-2.93.19/f771 D.f -quiet -dumpbase D.f -version -fversion -o /tmp/ccNpaaaa.s
  45 * GNU F77 version egcs-2.93.19 19990418 (gcc2 ss-980929 experimental) (alphaev56-unknown-linux-gnu) compiled by GNU C version egcs-2.93.19 19990418 (gcc2 ss-980929 experimental).
  46 * GNU Fortran Front End version 0.5.24-19990418
  47 * ../../../egcs-19990418/gcc/f/com.c:10351: failed assertion `hook'
  48 * g77: Internal compiler error: program f771 got fatal signal 6
  49 *
  50 * Yours,
  51 *
  52 * Bjorn R. Bjornsson
  53 * brb@halo.hi.is