gcc/testsuite/gfortran.dg/pointer_check_8.f90


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