While working on PR 24518, I found the following:
$ cat a.f90
real(kind=10) :: x = 10.0
print *, mod (x,x)
end
$ gfortran a.f90
In file a.f90:3
end
1
Internal Error at (1):
gfc_validate_kind(): Got bad kind
It looks like we're trying to use the integer kind associated with the real
kind, and of course, there's not integer(kind=10) available.
--
Summary: Modulo of real(kind=10) variables doesn't work
Product: gcc
Version: 4.2.0
Status: UNCONFIRMED
Keywords: ice-on-valid-code
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: fxcoudert at gcc dot gnu dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=28094
