[Bug fortran/16581] New: gfortran F90 bit intrinsics don't work with integer*{1,2,8}

[Bug fortran/16581] New: gfortran F90 bit intrinsics don't work with integer*{1,2,8}

[billingd at gcc dot gnu dot org]

Fortran 90 bit intrinsics don't work with integer*{1,2,8}.
I understand this is a know bug. The test case is 
g77.f-torture/execute/f90-intrinsic-bit.f,
which I believe to be standard conforming (as I wrote it).

The first few error messages are:

 In file f90-intrinsic-bit.f:107

      call c_i(IBCLR(14,j2),12,'IBCLR(integer,integer*2)')
                       1
Error: 'pos' argument of 'ibclr' intrinsic at (1) must be of kind 4
 In file f90-intrinsic-bit.f:108

      call c_i(IBCLR(14,k2),12,'IBCLR(integer,integer*1)')
                       1
Error: 'pos' argument of 'ibclr' intrinsic at (1) must be of kind 4
 In file f90-intrinsic-bit.f:109

      call c_i(IBCLR(14,m2),12,'IBCLR(integer,integer*8)')
                       1
Error: 'pos' argument of 'ibclr' intrinsic at (1) must be of kind 4
 In file f90-intrinsic-bit.f:111

      call c_i2(IBCLR(j,j2),ja,'IBCLR(integer*2,integer*2)')
                       1
Error: 'pos' argument of 'ibclr' intrinsic at (1) must be of kind 4

-- 
           Summary: gfortran F90 bit intrinsics don't work with
                    integer*{1,2,8}
           Product: gcc
           Version: 3.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: billingd at gcc dot gnu dot org
                CC: gcc-bugs at gcc dot gnu dot org
  GCC host triplet: i686-pc-cygwin


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

[Bug fortran/16581] gfortran F90 bit intrinsics don't work with integer*{1,2,8}

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2004-07-17 03:11 -------
Confirmed.

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|                            |1
           Keywords|                            |rejects-valid
   Last reconfirmed|0000-00-00 00:00:00         |2004-07-17 03:11:44
               date|                            |


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

[Bug fortran/16581] gfortran F90 bit intrinsics don't work with integer*{1,2,8}

[sgk at troutmask dot apl dot washington dot edu]

------- Additional Comments From sgk at troutmask dot apl dot washington dot edu  2004-12-05 21:47 -------
I believe my patch at

http://gcc.gnu.org/ml/gcc-patches/2004-12/msg00358.html

fixes this problem.

-- 
steve

-- 


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

[Bug fortran/16581] gfortran F90 bit intrinsics don't work with integer*{1,2,8}

[cvs-commit at gcc dot gnu dot org]

------- Additional Comments From cvs-commit at gcc dot gnu dot org  2004-12-12 21:09 -------
Subject: Bug 16581

CVSROOT:	/cvs/gcc
Module name:	gcc
Changes by:	pbrook@gcc.gnu.org	2004-12-12 21:09:10

Modified files:
	gcc/fortran    : ChangeLog check.c intrinsic.c iresolve.c 

Log message:
	2004-12-12  Steven G. Kargl  <kargls@comcast.net>
	
	PR fortran/16581
	* check.c (gfc_check_iand, gfc_check_ibclr, gfc_check_ibits,
	gfc_check_ibset, gfc_check_ieor, gfc_check_ior): Remove default
	integer kind check; Issue error for -std=f95 when needed.
	* intrinsic.c (add_functions): Change ieor from GFC_STD_GNU to
	GFC_STD_F95.
	* iresolve.c (gfc_resolve_iand, gfc_resolve_ieor, gfc_resolve_ior):
	Promote arguments to same kind.

Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/ChangeLog.diff?cvsroot=gcc&r1=1.269&r2=1.270
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/check.c.diff?cvsroot=gcc&r1=1.18&r2=1.19
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/intrinsic.c.diff?cvsroot=gcc&r1=1.33&r2=1.34
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/iresolve.c.diff?cvsroot=gcc&r1=1.25&r2=1.26



-- 


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

[Bug fortran/16581] gfortran F90 bit intrinsics don't work with integer*{1,2,8}

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2004-12-12 21:39 -------
Fixed.

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |RESOLVED
         Resolution|                            |FIXED
   Target Milestone|---                         |4.0.0


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