gcc/testsuite/gfortran.dg/pr67524.f90


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

! { dg-do run }
module m
   implicit character(8) (a-z)
contains
   function f(x)
      integer :: x
      integer :: f
      real :: e
      f = x
      return
   entry e(x)
      e = x
   end
end module

program p
   use m
   if (f(1) /= 1) STOP 1
   if (e(1) /= 1.0) STOP 2
end