gcc/testsuite/gfortran.dg/pr77260_2.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          integer f3           ! { dg-warning "Unused variable" }
  15          f1=5
  16       entry f2
  17          f2=8
  18       end function
  19 end module
  20
  21 program test
  22    use foo
  23    implicit none
  24    print *,f2()
  25 end program