C     ex1.f  -  FORTRAN file for example 1
      FUNCTION FOO2(X) RESULT (R)
      !DEC$ ATTRIBUTES DLLEXPORT, ALIAS:'FOO2'::FOO2
      REAL  X
      REAL :: R
      R = X * 2
      END FUNCTION
      
      SUBROUTINE FOO
      !DEC$ ATTRIBUTES DLLEXPORT, ALIAS:'FOO'::FOO
      
      REAL :: R
      
      R = 20
      print *,"R=",R
      END SUBROUTINE