fortran/5473: ICE on BESJN(integer*8,real)

[David.Billinghurst@riotinto.com]

>Number:         5473
>Category:       fortran
>Synopsis:       ICE on BESJN(integer*8,real)
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    unassigned
>State:          open
>Class:          ice-on-legal-code
>Submitter-Id:   net
>Arrival-Date:   Wed Jan 23 21:36:00 PST 2002
>Closed-Date:
>Last-Modified:
>Originator:     David Billinghurst
>Release:        gcc version 3.1 20020123 (experimental)
>Organization:
>Environment:
mips-sgi-irix6.5
i686-pc-cygwin
>Description:
Test case derived from g77.f-torture/execute/intrinsic-unix-bessel.f

g77 ICE compiling

      real x, a
      integer*8 m
      x = 2.0
      m = 2
      a = BESJN(m,x)
      end

On irix

Assertion failed: EX, file /exd4/billingd/src/gcc/gcc/f/com.c, line 1186
j.f: In program `MAIN__':
j.f:5: internal error: Abort

On cygwin:

MAIN__assertion "(TREE_CODE (TREE_TYPE (e)) == INTEGER_TYPE && TYPE_PRECISION (
type) >= TYPE_PRECISION (TREE_TYPE (e))) || (TREE_CODE (TREE_TYPE (e)) == POINTE
R_TYPE && (TYPE_PRECISION (type) == TREE_INT_CST_LOW (TYPE_SIZE (TREE_TYPE (e)))
))" failed: file "/usr/local/src/gcc/gcc/f/com.c", line 1186
j.f: In program `MAIN__':
j.f:5: internal error: Aborted

>How-To-Repeat:
g77 -c j.f
>Fix:

>Release-Note:
>Audit-Trail:
>Unformatted: