1 2 3 4 5 6 7
! { dg-do run } ! { dg-options "-Og" } PROGRAM main CHARACTER(LEN=24) :: a(2) a = '' END PROGRAM