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