Mercurial > hg > CbC > CbC_gcc
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 |
rev | line source |
---|---|
111 | 1 ! { dg-do run } |
2 ! | |
3 ! PR 41629: [OOP] gimplification error on valid code | |
4 ! | |
5 ! Contributed by Janus Weil <janus@gcc.gnu.org> | |
6 | |
7 type t1 | |
8 integer :: comp | |
9 end type | |
10 | |
11 type(t1), target :: a | |
12 | |
13 class(t1) :: x | |
14 pointer :: x ! This is valid | |
15 | |
16 a%comp = 3 | |
17 x => a | |
18 print *,x%comp | |
19 if (x%comp/=3) call abort() | |
20 | |
21 end |