gcc/testsuite/gfortran.dg/dec_bitwise_ops_3.f90

   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
  10 include '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 }