Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/pr68227.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
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do compile }
2 ! PR fortran/68227
3 ! Original code contributed by Gerhard Steinmetz
4 ! <gerhard dot steinmetz dot fortran at t-online dot de >
5 !
6 program p
7
8 type t
9 end type
10
11 type t2
12 type(t), pointer :: a
13 end type
14
15 type(t), target :: x
16 type(t2), pointer :: y(:)
17 integer :: i
18 integer :: n = 2
19
20 allocate (y(n))
21 forall (i=1:n) y(i)%a = x
22
23 end program p