view gcc/testsuite/gfortran.dg/warn_unused_dummy_argument_6.f90 @ 19:2b5abeee2509 default tip

update gcc11
author anatofuz
date Mon, 25 May 2020 07:50:57 +0900
parents
children
line wrap: on
line source

! { dg-do compile }
! { dg-options "-Wall" }
! PR 94270 - this used to give a bogus warning.
! Test case by Ignacio Fernández Galván.
subroutine foo()
external bar
call meh(bar)
call foo_internal()
contains
  subroutine foo_internal()
    call meh(bar)
  end subroutine foo_internal
end subroutine foo