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