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