gcc/testsuite/gfortran.dg/pr77260_2.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

! { dg-do compile }
! { dg-options "-Wall" }
module foo

   implicit none

   private
   public f1,f2

   contains

      integer function f1()
         integer f2
         integer f3           ! { dg-warning "Unused variable" }
         f1=5
      entry f2
         f2=8
      end function
end module

program test
   use foo
   implicit none
   print *,f2()
end program