From: Thomas Koenig <tkoenig@gcc.gnu.org>
Date: Sun, 15 Sep 2019 08:43:42 +0000 (+0000)
Subject: re PR fortran/91556 (Problems with better interface checking)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=f5b72b67cf7c667a1c21ffeee1a7e6716650c55d;p=gcc.git

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 bfc9e8a35a1..1ec4fb9c9ef 100644
--- 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
index 19097a7e838..00000000000
--- 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