19 lines
452 B
Fortran
19 lines
452 B
Fortran
! { 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
|