[Bug fortran/27478] New: getting ": error: invalid operand to binary operator"

[johnurban at adelphia dot net]

#!/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 =========================================
=========================================

urbanjs@electra ~
$


-- 
           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