[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Make f77tests fail on lots of platforms?
From: |
Peter O'Gorman |
Subject: |
Make f77tests fail on lots of platforms? |
Date: |
Tue, 07 Sep 2004 20:21:21 +0900 |
User-agent: |
Mozilla Thunderbird 0.7.3 (Macintosh/20040803) |
Okay to apply? :-p
Peter
--
Peter O'Gorman - http://www.pogma.com
Index: ChangeLog
2004-09-07 Peter O'Gorman <address@hidden>
Our fortran tests were not very good. All the libraries created
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 will likely cause many more fortran test failures.
* 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.
from Gary V. Vaughan <address@hidden>
Index: tests/f77demo/Makefile.am
===================================================================
RCS file: /cvsroot/libtool/libtool/tests/f77demo/Makefile.am,v
retrieving revision 1.5
diff -u -3 -p -u -r1.5 Makefile.am
--- tests/f77demo/Makefile.am 13 Apr 2004 14:30:50 -0000 1.5
+++ tests/f77demo/Makefile.am 7 Sep 2004 11:19:10 -0000
@@ -21,12 +21,19 @@ AUTOMAKE_OPTIONS = no-dependencies forei
ACLOCAL_AMFLAGS = -I ../../m4
AM_CPPFLAGS = -I$(top_srcdir)/../..
-noinst_LTLIBRARIES = libfoo.la libmix.la
+lib_LTLIBRARIES = libfoo.la libmix.la libfoo2.la libfoo3.la
libfoo_la_SOURCES = foof.f
libfoo_la_LDFLAGS = -no-undefined
+libfoo_la_LIBADD = libfoo2.la
-libmix_la_SOURCES = foof.f fooc.c
+libfoo2_la_SOURCES = foof2.f
+libfoo2_la_LDFLAGS = -no-undefined
+
+libfoo3_la_SOURCES = foof3.f
+libfoo3_la_LDFLAGS = -no-undefined
+
+libmix_la_SOURCES = foof.f foof2.f fooc.c
libmix_la_LDFLAGS = -no-undefined
noinst_HEADERS = foo.h
@@ -34,10 +41,10 @@ noinst_HEADERS = foo.h
bin_PROGRAMS = fprogram cprogram
fprogram_SOURCES = fprogram.f
-fprogram_LDADD = libfoo.la
+fprogram_LDADD = libfoo.la libfoo3.la
cprogram_SOURCES = cprogram.c
-cprogram_LDADD = libmix.la
+cprogram_LDADD = libmix.la $(FLIBS)
$(OBJECTS): libtool
libtool: $(LIBTOOL_DEPS)
Index: tests/f77demo/foof.f
===================================================================
RCS file: /cvsroot/libtool/libtool/tests/f77demo/foof.f,v
retrieving revision 1.1
diff -u -3 -p -u -r1.1 foof.f
--- tests/f77demo/foof.f 14 Oct 2003 21:46:13 -0000 1.1
+++ tests/f77demo/foof.f 7 Sep 2004 11:19:10 -0000
@@ -6,8 +6,7 @@ C of the License, or (at your option) an
C
subroutine fsub(arg,res)
- implicit none
- integer*4 arg,res
- res=arg*2
+ write(*,*) 'fsub called'
+ call fsubf(arg,res)
return
end
Index: tests/f77demo/fprogram.f
===================================================================
RCS file: /cvsroot/libtool/libtool/tests/f77demo/fprogram.f,v
retrieving revision 1.1
diff -u -3 -p -u -r1.1 fprogram.f
--- tests/f77demo/fprogram.f 14 Oct 2003 21:46:13 -0000 1.1
+++ tests/f77demo/fprogram.f 7 Sep 2004 11:19:10 -0000
@@ -21,7 +21,14 @@ C
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
-
--- /dev/null 2004-09-07 20:19:28.000000000 +0900
+++ tests/f77demo/foof2.f 2004-09-07 20:11:02.000000000 +0900
@@ -0,0 +1,14 @@
+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
+
+ subroutine fsubf(arg,res)
+ implicit none
+ integer*4 arg,res
+ write(*,*) 'fsubf called'
+ res=arg*2
+ return
+ end
--- /dev/null 2004-09-07 20:19:28.000000000 +0900
+++ tests/f77demo/foof3.f 2004-09-07 20:11:02.000000000 +0900
@@ -0,0 +1,14 @@
+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
+
+ subroutine fsub3(arg,res)
+ implicit none
+ integer*4 arg,res
+ write(*,*) 'fsub3 called'
+ res=arg*4
+ return
+ end
- Make f77tests fail on lots of platforms?,
Peter O'Gorman <=
- Re: Make f77tests fail on lots of platforms?, Gary V. Vaughan, 2004/09/07
- Re: Make f77tests fail on lots of platforms?, Peter O'Gorman, 2004/09/07
- Re: Make f77tests fail on lots of platforms?, Bob Friesenhahn, 2004/09/08
- Re: Make f77tests fail on lots of platforms?, Peter O'Gorman, 2004/09/08
- Re: Make f77tests fail on lots of platforms?, Gary V. Vaughan, 2004/09/10
- Re: Make f77tests fail on lots of platforms?, Gary V . Vaughan, 2004/09/10
- Re: Make f77tests fail on lots of platforms?, Peter O'Gorman, 2004/09/12