From:	earnie_boyd AT yahoo DOT com (Earnie Boyd)
Subject:	Question on FORTRAN?
11 Nov 1998 11:07:20 -0800 :
Message-ID:	<19981110132615.17386.rocketmail.cygnus.gnu-win32@send1e.yahoomail.com>
Reply-To:	earnie_boyd AT yahoo DOT com
Mime-Version:	1.0
To:	cygwin users <gnu-win32 AT cygnus DOT com>

I found on the web somewhere an example of a FORTRAN program using the
Win32 API.  I was able to compile this program, but how do I get it to
link and run?  Or is this just impossible with g77?  Note, I was able
to get the DOS version of this program to execute properly.

This is the program:
----8<--------8<--------8<--------8<-------->8-------->8-------->8-------->8----
! Contouring Windows' "program" statements from section 1.2
      integer function WinMain(hInstance,
     &   hPrevInstance, lpszCmdLine, nCmdShow)
      !MS$ ATTRIBUTES STDCALL, ALIAS:'_WinMain AT 16'::WinMain
      integer hInstance, hPrevInstance, lpszCmdLine, nCmdShow
! end of Windows' header

! DOS program body from section 1.1
       real*4 a,b,c
       character*7 input_file
       input_file='1.0 2.0'
       read(input_file,*) a,b
       c = a + b
       open(unit=1,file="result_file.txt")
       write(1,"(f10.3)") c
       close(1)
! end of DOS body

! the rest of Windows' contouring
       WinMain=0
       end
! end of program
----8<--------8<--------8<--------8<-------->8-------->8-------->8-------->8----
==
-                  \\||//
-------------o0O0--Earnie--0O0o--------------
--          earnie_boyd AT yahoo DOT com          --
-- http://www.freeyellow.com/members5/gw32 --
----------------ooo0O--O0ooo-----------------

PS: Newbie's, you should visit my page.
_________________________________________________________
DO YOU YAHOO!?
Get your free @yahoo.com address at http://mail.yahoo.com

-
For help on using this list (especially unsubscribing), send a message to
"gnu-win32-request AT cygnus DOT com" with one line of text: "help".

- Raw text -