diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2019-09-15 08:43:42 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2019-09-15 08:43:42 +0000 |
| commit | f5b72b67cf7c667a1c21ffeee1a7e6716650c55d (patch) | |
| tree | 7911dd782e31e8be6afcbd0e331556a15373d2e7 /gcc | |
| parent | a0264d2cdd27a9a3e48e79c355092c423cc09072 (diff) | |
| download | gcc-f5b72b67cf7c667a1c21ffeee1a7e6716650c55d.zip gcc-f5b72b67cf7c667a1c21ffeee1a7e6716650c55d.tar.gz gcc-f5b72b67cf7c667a1c21ffeee1a7e6716650c55d.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/warn_argument_mismatch_1.f90 | 34 |
2 files changed, 5 insertions, 34 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index bfc9e8a3..1ec4fb9 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 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 |