re PR fortran/91556 (Problems with better interface checking)

2019-09-15  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/91556
	* gfortran.dg/warn_argument_mismatch_1.f90: Remove.

From-SVN: r275726

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index bfc9e8a35a16f630588c95b36c181032e07fcbb9..1ec4fb9c9efd287fb9f74299e3f76ee8a6f56c55 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2019-09-15  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+       PR fortran/91556
+       * gfortran.dg/warn_argument_mismatch_1.f90: Remove.
+
 2019-09-14  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
        PR fortran/91557

diff --git a/gcc/testsuite/gfortran.dg/warn_argument_mismatch_1.f90 b/gcc/testsuite/gfortran.dg/warn_argument_mismatch_1.f90
deleted file mode 100644 (file)
index 19097a7..0000000
--- a/gcc/testsuite/gfortran.dg/warn_argument_mismatch_1.f90
+++ /dev/null
@@ -1,34 +0,0 @@
-! { dg-do compile }
-! { dg-options "-std=legacy -Wno-argument-mismatch" }
-!
-! No warnings should be output here with -Wno-argument-mismatch.
-!
-
-subroutine s1(x)
-  implicit none
-  integer, intent(in) :: x
-  print *, x
-end subroutine
-
-subroutine s2(x)
-  implicit none
-  integer, intent(in) :: x(1)
-  print *, x
-end subroutine
-
-subroutine s3(x)
-  implicit none
-  integer, intent(in) :: x(2)
-  print *, x
-end subroutine
-
-implicit none
-integer :: x, y(1)
-real :: r
-
-call s1(r)
-call s1(y)
-call s2(x)
-call s3(y)
-
-end