Imported Upstream version 4.7.3
[platform/upstream/gcc48.git] / 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