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