! { dg-do compile } | |
! { dg-additional-options "-Wunused-dummy-argument" } | |
! PR 91557 - this used to generate a bogus warning | |
! Test case by Gerhard Steinmetz | |
program p | |
integer :: a, b | |
a = 1 | |
call g | |
contains | |
subroutine g | |
integer :: x, y | |
call h (x, y) | |
if ( a > 0 ) y = y - 1 | |
b = y - x + 1 | |
end | |
end |