------- Comment #1 from kargl at gcc dot gnu dot org 2008-05-15 17:42 ------- Here's a reduced testcase
subroutine bug1 integer, parameter :: ik1 = 1 integer, parameter :: k_k11 = kind(int((0.,0.), kind=ik1)) end subroutine bug1 If (0.,0.) is replaced by either 0 (i.e., INTEGER) or 0. (i.e., REAL), then the code compiles. If ik1 is 1, 2, or 16, then the ICE occurs. For ik1 = 4 or 8, the code compiles. -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36239
