1! { dg-do compile }
2! { dg-options "-std=f2008" }
3!
4interface
5  subroutine foo()
6  end
7  integer function bar()
8  end
9end interface
10contains
11  subroutine test()
12  end
13  integer function f()
14    f = 42
15  end
16end
17