1! { dg-do compile }
2! { dg-options "-std=f2003" }
3!
4! Test errors for logical .XOR. operator with a real standard.
5!
6
7implicit none
8
9logical, volatile :: in1, in2, xor_out
10xor_out = in1 .xor. in2 ! { dg-error ".XOR. operator" }
11
12end
13