lto: Remove random_seed from section name.

[official-gcc.git] / gcc / testsuite / gfortran.dg / pr94380.f90

! { dg-do compile }
!
! Contributed by Vladimir Nikishkin  <lockywolf@gmail.com>
!
module test
  type testtype
     class(*), allocatable :: t
  end type testtype
contains
  subroutine testproc( x )
    class(testtype) :: x
    associate ( temp => x%t)
      select type (temp)
         type is (integer)
      end select
    end associate
  end subroutine testproc
end module test