[Bug fortran/46146] New: Bessel and kind=8 integer arguments

[tkoenig at gcc dot gnu.org]

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

           Summary: Bessel and kind=8 integer arguments
           Product: gcc
           Version: 4.6.0
            Status: UNCONFIRMED
          Keywords: rejects-valid
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassig...@gcc.gnu.org
        ReportedBy: tkoe...@gcc.gnu.org
            Blocks: 32770


Discovered while re-checking PR 32770, bessel_5.f90 from the test suite:

i...@linux-fd1f:~/Krempel/8> gfortran -fdefault-integer-8 bessel_5.f90
bessel_5.f90:64.50:

if (any (BESSEL_YN(0, 10, 0.0) /= [ (BESSEL_YN(i, 0.0), i = 0, 10) ])) &
                                                  1
Error: Result of BESSEL_YN overflows its kind at (1)
bessel_5.f90:64.26:

if (any (BESSEL_YN(0, 10, 0.0) /= [ (BESSEL_YN(i, 0.0), i = 0, 10) ])) &
                          1
Error: Result of BESSEL_YN is -INF at (1)

The same error also occurs when changing i in the test case to kind=8.