gcc/testsuite/gfortran.dg/operator_3.f90

   1 ! { dg-do compile }
   2 ! PR fortran/31580
   3 !
   4 ! Testcase contributed by Tobias Burnus <burnus AT gcc DOT gnu DOT org>
   5 !
   6 PROGRAM test
   7   real :: a,b
   8   if(a .nonex. b) stop       ! { dg-error "Unknown operator" }
   9 end program