1! { dg-do compile }
2! PR34325 Wrong error message for syntax error
3program aa
4implicit none
5real(kind=8)::r1=0
6real(kind=8),dimension((1)::r2 ! { dg-error "Missing '\\)' in statement" }
7real(kind=8),dimension(3,3)::r3
8character(25) :: a
9a = 'I am not a )))))'')''.'
10if ((((((a /= "I am not a )))))')'.")))))) call abort
11if ((((((a /= 'I am not a )))))'')''.')))))) call abort
12a = "I am not a )))))"")""."
13if ((((((a /= "I am not a )))))"")"".")))))) call abort
14if (((3*r1)**2)>= 0) a = "good"
15if ((3*r1)**2)>= 0) a = "bad" ! { dg-error "Missing '\\(' in statement" }
16r3((2,2)) = 4.3 ! { dg-error "found COMPLEX" }
17do while ((.true.) ! { dg-error "Missing '\\)' in statement" }
18do while (.true. ! { dg-error "Missing '\\)' in statement" }
19end
20