gcc/testsuite/gfortran.dg/wextra_1.f

   1 ! { dg-do compile }
   2 ! { dg-options "-Wextra" }
   3       program main
   4       integer, parameter :: x=3 ! { dg-warning "Unused parameter" }
   5       real :: a
   6       read (*,*) a
   7       if (a .eq. 3.14) a=2.     ! { dg-warning "Equality comparison" }
   8       print *,a
   9       end