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