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

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

! { dg-do run }
!
! Contributed by Thomas Koenig  <tkoenig@gcc.gnu.org>
!
program main
  character (len=:), allocatable :: a(:)
  allocate (character(len=10) :: a(5))
  if (sizeof(a) .ne. 50) stop 1
  deallocate (a)
end program main