gcc/testsuite/gfortran.dg/transfer_class_1.f90

   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
   8 subroutine 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)
  16 end subroutine