RISC-V: Refactor Dynamic LMUL codes

[official-gcc.git] / gcc / testsuite / gfortran.dg / pr67524.f90

! { 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