OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

u77-test.f: Tweak some o/p. 

* libU77/u77-test.f: Tweak some o/p.
        * libU77/Makefile.in (check): Use -L for new directory structure.
        * Makefile.in (check): Run the u77 check.
        (config.status, Makefile): New targets.

From-SVN: r18059
This commit is contained in:
Dave Love 1998-02-17 23:52:39 +00:00 committed by Jeff Law
parent 2fde567ece
commit 9992b2e1f1
4 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
libf2c/ChangeLog.egcs
View File

@ -1,3 +1,12 @@
1998-02-17 Dave Love <d.love@dl.ac.uk>
* libU77/u77-test.f: Tweak some o/p.
* libU77/Makefile.in (check): Use -L for new directory structure.
* Makefile.in (check): Run the u77 check.
(config.status, Makefile): New targets.
Wed Feb 11 01:46:20 1998 Manfred Hollstein <manfred@s-direktnet.de>
* Makefile.in ($(lib)): Call $(AR) repeatedly to avoid overflowing

9
libf2c/Makefile.in
View File

@ -192,10 +192,17 @@ ${srcdir}/configure: ${srcdir}/configure.in
rm -f config.cache && cd ${srcdir} && autoconf && rm -f config.cache
${srcdir}/libU77/configure: ${srcdir}/libU77/configure.in
rm -f libU77/config.cache && cd ${srcdir}/libU77 && autoconf && rm -f config.cache
f2c.h Makefile: $(srcdir)/Makefile.in config.status
$(SHELL) config.status
config.status: $(srcdir)/configure
$(SHELL) config.status --recheck
f2c.h: $(srcdir)/f2c.h.in
info install-info clean-info check dvi:
info install-info clean-info dvi:
check:
cd libU77; $(MAKE) G77DIR=../../../gcc/ check
install:
$(INSTALL_DATA) $(lib) $(libdir)/$(lib).n

2
libf2c/libU77/Makefile.in
View File

@ -82,7 +82,7 @@ distclean realclean maintainer-clean: clean
$(OBJS): $(F2C_H) config.h
check:
-$(G77DIR)g77 -B$(G77DIR) -g $(srcdir)/u77-test.f $(lib) && ./a.out
-$(G77DIR)g77 -B$(G77DIR) -L.. -g $(srcdir)/u77-test.f $(lib) && ./a.out
rm -f a.out
access_.o: access_.c

4
libf2c/libU77/u77-test.f
View File

@ -66,7 +66,7 @@
r1= etime (tarray1)
if (r1.ne.tarray1(1)+tarray1(2))
+ write (6,*) '*** ETIME didn''t return sum of the array: ',
+ r1, ' /= ', tarray1
+ r1, ' /= ', tarray1(1), '+', tarray1(2)
r2= dtime (tarray2)
if (abs (r1-r2).gt.1.0) write (6,*)
+ 'Results of ETIME and DTIME differ by more than a second:',
@ -79,7 +79,7 @@
write (6,*) 'IDATE d,m,y: ',idat
print *, '... and the VXT version: ', i,j,k
call time(line(:8))
print *, line(:8)
print *, 'TIME: ', line(:8)
write (6,*) 'SECNDS(0.0) returns: ',secnds(0.0)
write (6,*) 'SECOND returns: ', second()
call dumdum(r1)