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