gcc/testsuite/gfortran.dg/warning-directive-2.F90

! { dg-do preprocess }
! { dg-options "-std=f95 -fdiagnostics-show-option -Werror=cpp" }
! { dg-message "some warnings being treated as errors" "" { target *-*-* } 0 } 
#warning "Printed"
! { dg-error "\"Printed\" .-Werror=cpp." "" { target *-*-* } .-1 }