1! { dg-do compile }
2! PR 20363
3module snafu
4  interface foo
5    subroutine really_snafu (foo)
6      integer, intent (inout)  :: foo
7    end subroutine really_snafu
8  end interface foo
9end module snafu
10