16 lines
374 B
Fortran
16 lines
374 B
Fortran
! { dg-do compile }
|
|
! Complex constants with integer components should take ther kind from
|
|
! the real typed component, or default complex type if both components have
|
|
! integer type.
|
|
program prog
|
|
call test1 ((1_8, 1.0_4))
|
|
call test2 ((1_8, 2_8))
|
|
contains
|
|
subroutine test1(x)
|
|
complex(4) :: x
|
|
end subroutine
|
|
subroutine test2(x)
|
|
complex :: x
|
|
end subroutine
|
|
end program
|