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