blob: fa93f1d7ff2729952d7bb14dd33981968a7c35e3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
! { 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
|