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
This commit is contained in:
parent
a0264d2cdd
commit
f5b72b67cf
@ -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
|
||||
|
@ -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
|
Loading…
Reference in New Issue
Block a user