1! { dg-do compile } 2! Complex constants with integer components should take ther kind from 3! the real typed component, or default complex type if both components have 4! integer type. 5program prog 6 call test1 ((1_8, 1.0_4)) 7 call test2 ((1_8, 2_8)) 8contains 9subroutine test1(x) 10 complex(4) :: x 11end subroutine 12subroutine test2(x) 13 complex :: x 14end subroutine 15end program 16