1! { dg-do compile } 2! { dg-options "-std=f2008" } 3! 4! 5! Entry is obsolete in Fortran 2008 6! 7subroutine foo() 8entry bar() ! { dg-warning "Fortran 2008 obsolescent feature: ENTRY" } 9end 10