1! { dg-do run } 2! PR34325 Wrong error message for syntax error 3program aa 4implicit none 5real(kind=8)::r1=0 6character(25) :: a 7a = 'I am not a )))))'')''.' 8if ((((((a /= "I am not a )))))')'.")))))) call abort 9if ((((((a /= 'I am not a )))))'')''.')))))) call abort 10a = "I am not a )))))"")""." 11if ((((((a /= "I am not a )))))"")"".")))))) call abort 12if (((3*r1)**2)>= 0) a = "good" 13if (a /= "good") call abort 14end 15