[to-be-committed] [RISC-V] Use Zbkb for general 64 bit constants when profitable

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

! { dg-do run }
!
! Test the fix for PR100029
!

program foo_p
  implicit none

  type :: foo_t
  end type foo_t
  
  class(foo_t), allocatable :: pout

  call foo_s(pout)

contains

  subroutine foo_s(that)
    class(foo_t), allocatable, intent(out) :: that(..)
  end subroutine foo_s

end program foo_p