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