gcc/testsuite/gfortran.dg/pr77260_1.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-Wall" }
   3 module 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
  18 end module
  19
  20 program test
  21    use foo
  22    implicit none
  23    print *,f2()
  24 end program