Index: gcc/gcc/testsuite/gfortran.dg/func_decl_2.f90 |
diff --git a/gcc/gcc/testsuite/gfortran.dg/func_decl_2.f90 b/gcc/gcc/testsuite/gfortran.dg/func_decl_2.f90 |
index c2cc4403cd6794d2caa6beca55270a9c459cdec8..658883e65e21bd279fc7389195e5a685b4fba3ab 100644 |
--- a/gcc/gcc/testsuite/gfortran.dg/func_decl_2.f90 |
+++ b/gcc/gcc/testsuite/gfortran.dg/func_decl_2.f90 |
@@ -1,8 +1,6 @@ |
! { dg-do compile } |
! Test fix for PR16943 in which the double typing of |
-! N caused an error. This is a common extension to the |
-! F95 standard, so the error is only thrown for -std=f95 |
-! or -pedantic. |
+! N caused an error. |
! |
! Contributed by Paul Thomas <pault@gcc.gnu.org> |
! |
@@ -14,7 +12,7 @@ |
integer function bugf(M) result (N) |
integer, intent (in) :: M |
- integer :: N ! { dg-warning "already has basic type of INTEGER" } |
+ integer :: N ! { dg-error "already has basic type of INTEGER" } |
N = M |
return |
end function bugf |