1! { dg-do compile }
2! { dg-options "-Wall" }
3module foo
4
5   implicit none
6
7   private
8   public f1,f2
9
10   contains
11
12      integer function f1()
13         integer f2
14         f1=5
15      entry f2
16         f2=8
17      end function
18end module
19
20program test
21   use foo
22   implicit none
23   print *,f2()
24end program
25