ieee_9.f90: XFAIL on arm*-*-gnueabi[hf].

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

! { dg-do run }
! { dg-options "-ffrontend-optimize" }
program main
  character (len=:), allocatable :: a
  a = 'a'
  if (len(a) /= 1) STOP 1
  a = '  '
  if (len(a) /= 2) STOP 2
end program main