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

! { dg-do preprocess }
! { dg-options "-std=f95 -fdiagnostics-show-option" }

#warning "Printed"
! { dg-warning "\"Printed\" .-Wcpp." "" { target *-*-* } 4 }