1! { dg-do compile }
2! { dg-options "-std=legacy -fdec -fno-dec" }
3!
4! PR fortran/87919
5!
6! Make sure -fno-dec disables bitwise ops and check for the right errors.
7! -std=legacy is added to avoid the .XOR. extension warning.
8!
9
10include 'dec_bitwise_ops_1.f90'
11
12! { dg-error "Operands of logical operator" " " { target *-*-* } 33 }
13! { dg-error "Operands of logical operator" " " { target *-*-* } 34 }
14! { dg-error "Operands of logical operator" " " { target *-*-* } 35 }
15! { dg-error "Operands of logical operator" " " { target *-*-* } 46 }
16! { dg-error "Operands of logical operator" " " { target *-*-* } 47 }
17! { dg-error "Operands of logical operator" " " { target *-*-* } 48 }
18! { dg-error "Operands of logical operator" " " { target *-*-* } 59 }
19! { dg-error "Operands of logical operator" " " { target *-*-* } 60 }
20! { dg-error "Operands of logical operator" " " { target *-*-* } 61 }
21! { dg-error "Operand of .not. operator" " " { target *-*-* } 72 }
22! { dg-error "Operand of .not. operator" " " { target *-*-* } 73 }
23! { dg-error "Operand of .not. operator" " " { target *-*-* } 74 }
24! { dg-error "Operands of logical operator" " " { target *-*-* } 85 }
25! { dg-error "Operands of logical operator" " " { target *-*-* } 86 }
26! { dg-error "Operands of logical operator" " " { target *-*-* } 87 }
27! { dg-error "Operands of logical operator" " " { target *-*-* } 98 }
28! { dg-error "Operands of logical operator" " " { target *-*-* } 99 }
29! { dg-error "Operands of logical operator" " " { target *-*-* } 100 }
30