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