This is the mail archive of the
gcc-prs@gcc.gnu.org
mailing list for the GCC project.
fortran/3743: Reference to intrinsic `ISHFT' invalid
- To: gcc-gnats at gcc dot gnu dot org
- Subject: fortran/3743: Reference to intrinsic `ISHFT' invalid
- From: David dot Billinghurst at riotinto dot com
- Date: 20 Jul 2001 06:03:30 -0000
- Reply-To: David dot Billinghurst at riotinto dot com
>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: