Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/pr78033.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900 (2018-10-24)
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do compile }
kono
parents:
diff changeset
2 subroutine f(n, x, y)
kono
parents:
diff changeset
3
kono
parents:
diff changeset
4 implicit none
kono
parents:
diff changeset
5
kono
parents:
diff changeset
6 integer, parameter :: knd = kind(1.e0)
kono
parents:
diff changeset
7
kono
parents:
diff changeset
8 integer, intent(in) :: n
kono
parents:
diff changeset
9 complex(knd), intent(in) :: x(1:n)
kono
parents:
diff changeset
10
kono
parents:
diff changeset
11 integer i
kono
parents:
diff changeset
12 real(knd) y(2*n)
kono
parents:
diff changeset
13
kono
parents:
diff changeset
14 y = [real(x), aimag(x)]
kono
parents:
diff changeset
15 y = [real(x(1:n)), aimag(x(1:n))]
kono
parents:
diff changeset
16 y = [real(knd) :: 1]
kono
parents:
diff changeset
17 y = [real(kind=42) :: 1] { dg-error "Invalid type-spec" }
kono
parents:
diff changeset
18 y = [real(kind=knd) :: 1]
kono
parents:
diff changeset
19 y = [real(kind=knd, a=1.)]
kono
parents:
diff changeset
20 y = [real(a=1.)]
kono
parents:
diff changeset
21 y = [real(a=1, kind=knd)]
kono
parents:
diff changeset
22
kono
parents:
diff changeset
23 end subroutine f