comparison 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
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
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