arm: Add .type and .size to __gnu_cmse_nonsecure_call [PR115360]
[official-gcc.git] / gcc / testsuite / gfortran.dg / complex_int_1.f90
blobf287d8cd6bb715c1768b16918ef83a70944261fb
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.
5 program prog
6 call test1 ((1_8, 1.0_4))
7 call test2 ((1_8, 2_8))
8 contains
9 subroutine test1(x)
10 complex(4) :: x
11 end subroutine
12 subroutine test2(x)
13 complex :: x
14 end subroutine
15 end program