From mboxrd@z Thu Jan  1 00:00:00 1970
From: David.Billinghurst@riotinto.com
To: gcc-gnats@gcc.gnu.org
Subject: fortran/3743: Reference to intrinsic `ISHFT' invalid
Date: Thu, 19 Jul 2001 23:06:00 -0000
Message-id: <20010720060330.3203.qmail@sourceware.cygnus.com>
X-SW-Source: 2001-07/msg00540.html
List-Id: <gcc-prs.sourceware.org>

>Number:         3743
>Category:       fortran
>Synopsis:       Reference to intrinsic `ISHFT' invalid
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    unassigned
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Thu Jul 19 23:06:06 PDT 2001
>Closed-Date:
>Last-Modified:
>Originator:     David Billinghurst
>Release:        2.95.2 and 3.1 CVS
>Organization:
>Environment:
mips-sgi-irix6.5
>Description:
Attached program gives error on mips-sgi-irix6.5, but not on i686-pc-cygwin or SGI f90

Error is:
j.f: In program `MAIN__':
j.f:14: 
         i3 = ISHFT(i,BIT_SIZE(i))
              ^
Reference to intrinsic `ISHFT' at (^) invalid -- one or more arguments have incorrect type


According to F90 standard (section 15.13)
* the first arg of ISHIFT is integer type
* the second arg of ISHIFT is integer type
* the return type of BIT_SIZE is same as argument
* the return type of ISHFT is same as the first arg
 

####################################

c On mips-sgi-irix6.5 get
c
c         i3 = ISHFT(i,BIT_SIZE(i))
c              ^
c Reference to intrinsic `ISHFT' at (^) invalid -- 
c one or more arguments have incorrect type
c
c     David Billinghurst <David.Billinghurst@riotinto.com>
c
      integer   i, i2, i3
      i  = 3
      i2 = BIT_SIZE(i)
      i3 = ISHFT(i,i2)
      i3 = ISHFT(i,BIT_SIZE(i))
      end
>How-To-Repeat:

>Fix:

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