#!/bin/sh
cat >bug.f <<\EOF
FUNCTION TSL(PIN)
! EXTERNAL PPP
ENTRY TSL1(PIN)
IF (DBLE(TSL) .GT. PIN) TSL = 705.47
TSL= PPP(TSL)
END
EOF
(
exec 2>&1
uname -a
set -x
gfortran --version
gfortran -v -c -save-temps bug.f
ls -ltrasd bug*
echo =========================================
cat bug.i*
echo =========================================
#cat bug.s
echo =========================================
) | tee -a $0
exit
########################################################################
CYGWIN_NT-5.1 electra 1.5.12(0.116/4/2) 2004-11-10 08:34 i686 unknown unknown
Cygwin
+ gfortran --version
GNU Fortran 95 (GCC) 4.2.0 20060420 (experimental)
Copyright (C) 2006 Free Software Foundation, Inc.
GNU Fortran comes with NO WARRANTY, to the extent permitted by law.
You may redistribute copies of GNU Fortran
under the terms of the GNU General Public License.
For more information about these matters, see the file named COPYING
+ gfortran -v -c -save-temps bug.f
Using built-in specs.
Target: i686-pc-cygwin
Configured with: ../trunk/configure --prefix=/irun --with-
mpfr=/usr/local/gmp --with-gmp=/usr/local/gmp --enable-
languages=c,fortran --disable-bootstrap : (reconfigured)
../trunk/configure --prefix=/irun --with-mpfr=/usr/local/gmp --with-
gmp=/usr/local/gmp --enable-languages=c,fortran --disable-bootstrap :
(reconfigured) ../trunk/configure --prefix=/irun --with-
mpfr=/usr/local/gmp --with-gmp=/usr/local/gmp --disable-bootstrap
--enable-languages=c,fortran --no-create --no-recursion : (reconfigured)
../trunk/configure --prefix=/irun --with-mpfr=/usr/local/gmp --with-
gmp=/usr/local/gmp --disable-bootstrap --enable-languages=c,fortran
--no-create --no-recursion : (reconfigured) ../trunk/configure
--prefix=/irun --with-mpfr=/usr/local/gmp --with-gmp=/usr/local/gmp
--disable-bootstrap --enable-languages=c,fortran --no-create --no-
recursion : (reconfigured) ../trunk/configure --prefix=/irun --with-
mpfr=/usr/local/gmp --with-gmp=/usr/local/gmp --disable-bootstrap
--enable-languages=c,fortran --no-create --no-recursion : (reconfigured)
../trunk/configure --prefix=/irun --with-mpfr=/usr/local/gmp --with-
gmp=/usr/local/gmp --disable-bootstrap --enable-languages=c,fortran
--no-create --no-recursion : (reconfigured) ../trunk/configure
--prefix=/irun --with-mpfr=/usr/local/gmp --with-gmp=/usr/local/gmp
--disable-bootstrap --enable-languages=c,fortran --no-create --no-
recursion : (reconfigured) ../trunk/configure --prefix=/irun --with-
mpfr=/usr/local/gmp --with-gmp=/usr/local/gmp --disable-bootstrap
--enable-languages=c,fortran : (reconfigured) ../trunk/configure
--prefix=/irun --with-mpfr=/usr/local/gmp --with-gmp=/usr/local/gmp
--disable-bootstrap --enable-languages=c,fortran --no-create --no-
recursion : (reconfigured) ../trunk/configure --prefix=/irun --with-
mpfr=/usr/local/gmp --with-gmp=/usr/local/gmp --disable-bootstrap
--enable-languages=c,fortran --enable-languages=c,fortran --no-create
--no-recursion : (reconfigured) ../trunk/configure --prefix=/irun
--with-mpfr=/usr/local/gmp --with-gmp=/usr/local/gmp --disable-bootstrap
--enable-languages=c,fortran --enable-languages=c,fortran --no-create
--no-recursion : (reconfigured) ../trunk/configure --prefix=/irun
--with-mpfr=/usr/local/gmp --with-gmp=/usr/local/gmp --disable-bootstrap
--enable-languages=c,fortran --enable-languages=c,fortran --no-create
--no-recursion : (reconfigured) ../trunk/configure --prefix=/irun
--with-mpfr=/usr/local/gmp --with-gmp=/usr/local/gmp --disable-bootstrap
--enable-languages=c,fortran --enable-languages=c,fortran --no-create
--no-recursion
Thread model: single
gcc version 4.2.0 20060420 (experimental)
/usr/local/irun/bin/../libexec/gcc/i686-pc-cygwin/4.2.0/f951.exe bug.f
-ffixed-form -quiet -dumpbase bug.f -mtune=generic -auxbase bug -version -I
/usr/local/irun/bin/../lib/gcc/i686-pc-cygwin/4.2.0/finclude -o bug.s
GNU F95 version 4.2.0 20060420 (experimental) (i686-pc-cygwin)
compiled by GNU C version 3.2 20020927 (prerelease).
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
bug.f: In function 'master.0.tsl':
bug.f:5: error: invalid operand to binary operator
__result_master.0.tslD.917
bug.f:5: internal compiler error: verify_stmts failed
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
+ ls -ltrasd bug.f bug.ksh bug.o bug.s bug1
1 -rw-r--r-- 1 urbanjs None 672 Dec 13 23:34 bug.ksh
1 -rw-r--r-- 1 urbanjs None 812 Feb 12 23:32 bug1
1 -rw-r--r-- 1 urbanjs None 537 May 8 00:44 bug.o
1 -rw-r--r-- 1 urbanjs None 139 May 8 00:52 bug.f
1 -rw-r--r-- 1 urbanjs None 557 May 8 00:52 bug.s
+ echo =========================================
=========================================
+ cat bug.i*
cat: bug.i*: No such file or directory
+ echo =========================================
=========================================
+ echo =========================================
=========================================
[EMAIL PROTECTED] ~
$
--
Summary: getting ": error: invalid operand to binary operator"
Product: gcc
Version: 4.2.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: johnurban at adelphia dot net
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=27478
