gcc-4.9/gcc/testsuite/gfortran.dg/string_assign_2.f90


1
2
3
4
5
6
7
8
9

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