blob: 99c6652f211c38ec2117db16df54af375d7cdd85 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
! { dg-do compile }
! { dg-options "-fcheck=pointer" }
!
! PR 46809: [OOP] ICE with -fcheck=pointer for CLASS IS
!
! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
type t
end type t
contains
subroutine sub(a)
class(t) :: a
select type (a)
class is (t)
print *, 'Hi there'
end select
end subroutine
end
|
