mirror of
git://git.savannah.gnu.org/libtool.git
synced 2025-02-05 14:40:42 +08:00
f0cb3767cf
were convenience libs, so we did not test the creation of shared libraries on any platform. Also none of the libs used any actual fortran library calls, adding a call to write(*,*) in each lib causes the tests to fail on darwin (and presumably other platforms). These new tests would likely cause many more fortran test failures, so if there is an error during make it is reported as SKIP. * tests/f77demo-make.test: Don't fail hard, skip on failure. * tests/f77demo/foof2.f: New file. * tests/f77demo/foof3.f: New file. * tests/f77demo/fprogram.f: Call routine in new lib. * tests/f77demo/foof.f: Call routine in another new lib. * tests/f77demo/Makefile.am: Make a couple of new libraries, add $(FLIBS) to cprogram LDADD.
35 lines
795 B
Fortran
35 lines
795 B
Fortran
C
|
|
C This program is free software; you can redistribute it and/or
|
|
C modify it under the terms of the GNU General Public License
|
|
C as published by the Free Software Foundation; either version 2
|
|
C of the License, or (at your option) any later version.
|
|
C
|
|
|
|
program fprogram
|
|
implicit none
|
|
integer*4 arg,res
|
|
|
|
write(*,*) 'Welcome to GNU libtool Fortran demo!'
|
|
write(*,*) 'Real programmers write in FORTRAN.'
|
|
arg=2
|
|
|
|
call fsub(arg,res)
|
|
|
|
write(*,*) 'fsub returned, saying that 2 *',arg,' =',res
|
|
|
|
if (res.eq.4) then
|
|
write(*,*) 'fsub is ok!'
|
|
endif
|
|
|
|
call fsub3(arg,res)
|
|
|
|
write(*,*) 'fsub3 returned, saying that 4 *',arg,' =',res
|
|
|
|
if (res.eq.8) then
|
|
write(*,*) 'fsub3 is ok!'
|
|
endif
|
|
|
|
stop
|
|
end
|
|
|