| ! { 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 |