[Bug fortran/20786] New: Can't use AINT intrinsic with KIND parameter

[Bug fortran/20786] New: Can't use AINT intrinsic with KIND parameter

[fxcoudert at gcc dot gnu dot org]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 952 bytes --]

The following code is valid:

$ cat aint_mismatch.f 
      implicit none
      real(4) r
      r = aint (r,kind=8)
      end
$ gfortran aint_mismatch.f
aint_mismatch.f: In function ‘MAIN__’:
aint_mismatch.f:3: internal compiler error: in emit_move_insn, at expr.c:3085

The ICE disappears if kind=4 or if r is a real(8). This should be easy to fix,
since other similar intrinsics (such as ANINT) doesn't exhibit such ICE.

-- 
           Summary: Can't use AINT intrinsic with KIND parameter
           Product: gcc
           Version: unknown
            Status: UNCONFIRMED
          Keywords: ice-on-valid-code
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: fxcoudert at gcc dot gnu dot org
                CC: gcc-bugs at gcc dot gnu dot org
OtherBugsDependingO 19292
             nThis:


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

[Bug fortran/20786] Can't use AINT intrinsic with KIND parameter

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2005-04-06 15:11 -------
Confirmed, the problem is most likely we are missing a fold_convert somewhere converting from 
double down to float (sorry for using C types but it makes it easier sometimes).

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|                            |1
   Last reconfirmed|0000-00-00 00:00:00         |2005-04-06 15:11:53
               date|                            |


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

[Bug fortran/20786] Can't use AINT intrinsic with KIND parameter

[jblomqvi at cc dot hut dot fi]

------- Additional Comments From jblomqvi at cc dot hut dot fi  2005-05-23 18:22 -------
The ICE seems to have disappeared, but it still doesn't work correctly. E.g. 

      implicit none
      real(4) :: r = 42.0
      r = aint (r,kind=8)
      print *, r
      end

Prints out 0.000000

-- 


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

[Bug fortran/20786] Can't use AINT intrinsic with KIND parameter

[jblomqvi at cc dot hut dot fi]

------- Additional Comments From jblomqvi at cc dot hut dot fi  2005-06-11 20:07 -------
Actually, ANINT also exhibits the same problem:

      implicit none
      real(4) :: r = 42.7, r2
      r2 = aint (r,kind=8)
      print *, 'aint: ', r2
      r2 = anint (r, kind=8)
      print *, 'anint: ', r2
      end

Prints out:

 aint:    0.000000
 anint:    0.000000


-- 


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

[Bug fortran/20786] Can't use AINT intrinsic with KIND parameter

[kargl at gcc dot gnu dot org]

------- Comment #6 from kargl at gcc dot gnu dot org  2005-10-12 00:32 -------
Fixed.


-- 

kargl at gcc dot gnu dot org changed:

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


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

[Bug fortran/20786] Can't use AINT intrinsic with KIND parameter

[cvs-commit at gcc dot gnu dot org]

------- Comment #5 from cvs-commit at gcc dot gnu dot org  2005-10-12 00:31 -------
Subject: Bug 20786

CVSROOT:        /cvs/gcc
Module name:    gcc
Branch:         gcc-4_0-branch
Changes by:     kargl@gcc.gnu.org       2005-10-12 00:31:35

Modified files:
        gcc/fortran    : ChangeLog iresolve.c 
        gcc/testsuite  : ChangeLog 
Added files:
        gcc/testsuite/gfortran.dg: aint_anint_1.f90 

Log message:
        PR fortran/20786
        *iresolve.c (gfc_resolve_aint, gfc_resolve_anint ): Type conversion
        of the argument.

        gfortran.dg/aint_anint_1.f90: New test.

Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/ChangeLog.diff?cvsroot=gcc&only_with_tag=gcc-4_0-branch&r1=1.335.2.126&r2=1.335.2.127
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/iresolve.c.diff?cvsroot=gcc&only_with_tag=gcc-4_0-branch&r1=1.32.2.4&r2=1.32.2.5
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/ChangeLog.diff?cvsroot=gcc&only_with_tag=gcc-4_0-branch&r1=1.5084.2.446&r2=1.5084.2.447
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/aint_anint_1.f90.diff?cvsroot=gcc&only_with_tag=gcc-4_0-branch&r1=NONE&r2=1.1.2.1


-- 


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

[Bug fortran/20786] Can't use AINT intrinsic with KIND parameter

[cvs-commit at gcc dot gnu dot org]

------- Comment #4 from cvs-commit at gcc dot gnu dot org  2005-10-11 23:58 -------
Subject: Bug 20786

CVSROOT:        /cvs/gcc
Module name:    gcc
Changes by:     kargl@gcc.gnu.org       2005-10-11 23:58:17

Modified files:
        gcc/fortran    : ChangeLog iresolve.c 
        gcc/testsuite  : ChangeLog 
Added files:
        gcc/testsuite/gfortran.dg: aint_anint_1.f90 

Log message:
        PR fortran/20786
        * iresolve.c (gfc_resolve_aint, gfc_resolve_anint ): Type conversion
        of the argument.

        gfortran.dg/aint_anint_1.f90: New test.

Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/ChangeLog.diff?cvsroot=gcc&r1=1.578&r2=1.579
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/iresolve.c.diff?cvsroot=gcc&r1=1.41&r2=1.42
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/ChangeLog.diff?cvsroot=gcc&r1=1.6171&r2=1.6172
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/aint_anint_1.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1


-- 


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