Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/coarray_poly_7.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
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 ! { dg-options "-fcoarray=lib -fdump-tree-original" }
kono
parents:
diff changeset
3 !
kono
parents:
diff changeset
4 implicit none
kono
parents:
diff changeset
5 type t
kono
parents:
diff changeset
6 end type t
kono
parents:
diff changeset
7 class(t), allocatable :: y(:)[:]
kono
parents:
diff changeset
8 call bar()
kono
parents:
diff changeset
9 call foo(y)
kono
parents:
diff changeset
10 contains
kono
parents:
diff changeset
11 subroutine bar(x)
kono
parents:
diff changeset
12 class(t), optional :: x(:)[*]
kono
parents:
diff changeset
13 end subroutine bar
kono
parents:
diff changeset
14 subroutine foo(x)
kono
parents:
diff changeset
15 class(t) :: x(:)[*]
kono
parents:
diff changeset
16 end subroutine foo
kono
parents:
diff changeset
17 end
kono
parents:
diff changeset
18 ! { dg-final { scan-tree-dump-times "foo \\(struct __class_MAIN___T_1_1t & restrict x, void \\* restrict caf_token.., integer\\(kind=\[48\]\\) caf_offset..\\)" 1 "original" } }
kono
parents:
diff changeset
19 ! { dg-final { scan-tree-dump-times "bar \\(struct __class_MAIN___T_1_1t \\* x, void \\* restrict caf_token.., integer\\(kind=\[48\]\\) caf_offset..\\)" 1 "original" } }
kono
parents:
diff changeset
20 ! { dg-final { scan-tree-dump-times "bar \\(0B, 0B, 0\\);" 1 "original" } }
kono
parents:
diff changeset
21 ! { dg-final { scan-tree-dump-times "foo \\(&class.., y._data.token, \\(integer\\(kind=\[48\]\\)\\) class..._data.data - \\(integer\\(kind=\[48\]\\)\\) y._data.data\\);" 1 "original" } }