| 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
|
|
|