1! { dg-do compile }
2! { dg-options "-Wsurprising" }
3!
4! PR 54917: [4.7/4.8 Regression] [OOP] TRANSFER on polymorphic variable causes ICE
5!
6! Contributed by Sean Santos <quantheory@gmail.com>
7
8subroutine test_routine1(arg)
9  implicit none
10  type test_type
11    integer :: test_comp
12  end type
13  class(test_type) :: arg
14  integer :: i
15  i = transfer(arg, 1)
16end subroutine
17