[Bug fortran/27561] New: i386-pc-mingw32 version incorrect error

[dir at lanl dot gov]

The i386-pc-mingw32 version errors incorrectly on this program fragment -

[EMAIL PROTECTED] /d/Docume~1/rantad/mydocu~1/tests
$ gfortran -c  eps.f90
 In file eps.f90:10

        xmax1 = min ( xx, ONE / epsilon ( xx ) )
                            1
Error: Division by zero at (1)

[EMAIL PROTECTED] /d/Docume~1/rantad/mydocu~1/tests
$ cat eps.f90
      module test
      implicit none
      integer, parameter :: REAL8 = SELECTED_REAL_KIND(12)
      real(REAL8), parameter :: ONE      = 1.0_REAL8
      contains
      real(REAL8) function digamma (xx)
        real(REAL8), intent(in) :: xx
        real(REAL8) :: xmax1

        xmax1 = min ( xx, ONE / epsilon ( xx ) )
        digamma=xmax1;
      end function digamma
      end module test



[EMAIL PROTECTED] /d/Docume~1/rantad/mydocu~1/tests
$ gfortran --v
Using built-in specs.
Target: i386-pc-mingw32
Configured with: ../gcc/configure --prefix=/mingw --enable-languages=c,fortran
--with-gmp=/home/coudert/local --disable-nls --with-ld=/mingw/bin/ld
--with-as=/mingw/bin/as --disable-werror --enable-bootstrap
--enable-threads=win32 --with-win32-nlsapi=unicode --host=i386-pc-mingw32
Thread model: win32
gcc version 4.2.0 20060504 (experimental)


-- 
           Summary: i386-pc-mingw32 version incorrect error
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: dir at lanl dot gov
  GCC host triplet: i386-pc-mingw32


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=27561