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