1! { dg-do compile }
2! { dg-options "-Wall -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
10