1! { dg-do run }
2! { dg-options "-ffrontend-optimize" }
3program main
4  character (len=:), allocatable :: a
5  a = 'a'
6  if (len(a) /= 1) STOP 1
7  a = '  '
8  if (len(a) /= 2) STOP 2
9end program main
10