ieee_9.f90: XFAIL on arm*-*-gnueabi[hf].

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

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

   implicit none

   private
   public f1,f2

   contains

      integer function f1()
         integer f2
         f1=5
      entry f2
         f2=8
      end function
end module

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