1C
2C This program is free software; you can redistribute it and/or
3C modify it under the terms of the GNU General Public License
4C as published by the Free Software Foundation; either version 2
5C of the License, or (at your option) any later version.
6C
7
8      program fprogram
9      implicit none
10      integer*4 arg,res
11
12      write(*,*) 'Welcome to GNU libtool Fortran demo!'
13      write(*,*) 'Real programmers write in FORTRAN.'
14      arg=2
15
16      call fsub(arg,res)
17
18      write(*,*) 'fsub returned, saying that 2 *',arg,' =',res
19
20      if (res.eq.4) then
21         write(*,*) 'fsub is ok!'
22      endif
23
24      stop
25      end
26
27
28