OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
fortran/
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
complex_int_1.f90
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