diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg')
4 files changed, 20 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/warning-directive-1.F90 b/gcc/testsuite/gfortran.dg/warning-directive-1.F90 new file mode 100644 index 00000000000..5f5931572c2 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/warning-directive-1.F90 @@ -0,0 +1,5 @@ +! { dg-do preprocess } +! { dg-options "-std=f95 -fdiagnostics-show-option" } + +#warning "Printed" +! { dg-warning "\"Printed\" .-Wcpp." "" { target *-*-* } 4 } diff --git a/gcc/testsuite/gfortran.dg/warning-directive-2.F90 b/gcc/testsuite/gfortran.dg/warning-directive-2.F90 new file mode 100644 index 00000000000..75b78bf6dd9 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/warning-directive-2.F90 @@ -0,0 +1,5 @@ +! { dg-do preprocess } +! { dg-options "-std=f95 -fdiagnostics-show-option -Werror=cpp" } + +#warning "Printed" +! { dg-error "\"Printed\" .-Wcpp." "" { target *-*-* } 4 } diff --git a/gcc/testsuite/gfortran.dg/warning-directive-3.F90 b/gcc/testsuite/gfortran.dg/warning-directive-3.F90 new file mode 100644 index 00000000000..aa20c1942a1 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/warning-directive-3.F90 @@ -0,0 +1,5 @@ +! { dg-do preprocess } +! { dg-options "-std=f95 -fdiagnostics-show-option -Werror -Wno-error=cpp" } + +#warning "Printed" +! { dg-warning "\"Printed\" .-Wcpp." "" { target *-*-* } 4 } diff --git a/gcc/testsuite/gfortran.dg/warning-directive-4.F90 b/gcc/testsuite/gfortran.dg/warning-directive-4.F90 new file mode 100644 index 00000000000..a5c38114957 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/warning-directive-4.F90 @@ -0,0 +1,5 @@ +! { dg-do preprocess } +! { dg-options "-std=f95 -fdiagnostics-show-option -Wno-cpp" } + +#warning "Not printed" +! { dg-bogus "." "" { target *-*-* } 4 } |