blob: f15026e9a2a55399aed85efa144296e162c4d633 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
! { dg-do compile }
! { dg-options "-Wunused-dummy-argument -Wunused-parameter" }
! PR 48847 - we used to generate a warning for g(), and none for h()
program main
contains
function f(g,h)
interface
real function g()
end function g
end interface
interface
real function h() ! { dg-warning "Unused dummy argument" }
end function h
end interface
real :: f
f = g()
end function f
end program main
|