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