annotate gcc/testsuite/gfortran.dg/class_6.f03 @ 111:04ced10e8804

gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children 84e7813d76e9
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do run }
kono
parents:
diff changeset
2 !
kono
parents:
diff changeset
3 ! PR 41629: [OOP] gimplification error on valid code
kono
parents:
diff changeset
4 !
kono
parents:
diff changeset
5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
kono
parents:
diff changeset
6
kono
parents:
diff changeset
7 type t1
kono
parents:
diff changeset
8 integer :: comp
kono
parents:
diff changeset
9 end type
kono
parents:
diff changeset
10
kono
parents:
diff changeset
11 type(t1), target :: a
kono
parents:
diff changeset
12
kono
parents:
diff changeset
13 class(t1) :: x
kono
parents:
diff changeset
14 pointer :: x ! This is valid
kono
parents:
diff changeset
15
kono
parents:
diff changeset
16 a%comp = 3
kono
parents:
diff changeset
17 x => a
kono
parents:
diff changeset
18 print *,x%comp
kono
parents:
diff changeset
19 if (x%comp/=3) call abort()
kono
parents:
diff changeset
20
kono
parents:
diff changeset
21 end