gcc/testsuite/gfortran.dg/pr94380.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

! { dg-do compile }
!
! Contributed by Vladimir Nikishkin  <lockywolf@gmail.com>
!
module test
  type testtype
     class(*), allocatable :: t
  end type testtype
contains
  subroutine testproc( x )
    class(testtype) :: x
    associate ( temp => x%t)
      select type (temp)
         type is (integer)
      end select
    end associate
  end subroutine testproc
end module test