! { dg-do run }
! { dg-options "-Og" }

PROGRAM main
  CHARACTER(LEN=24) :: a(2)
  a = ''
END PROGRAM