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

Reply via email to