mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
17 lines
370 B
Fortran
17 lines
370 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-Wsurprising" }
|
|
!
|
|
! PR 54917: [4.7/4.8 Regression] [OOP] TRANSFER on polymorphic variable causes ICE
|
|
!
|
|
! Contributed by Sean Santos <quantheory@gmail.com>
|
|
|
|
subroutine test_routine1(arg)
|
|
implicit none
|
|
type test_type
|
|
integer :: test_comp
|
|
end type
|
|
class(test_type) :: arg
|
|
integer :: i
|
|
i = transfer(arg, 1)
|
|
end subroutine
|