diff --git a/libf2c/ChangeLog.egcs b/libf2c/ChangeLog.egcs index a92c00b9cd13..3c0bcb1342dd 100644 --- a/libf2c/ChangeLog.egcs +++ b/libf2c/ChangeLog.egcs @@ -1,3 +1,12 @@ +1998-02-17 Dave Love + + * 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 * Makefile.in ($(lib)): Call $(AR) repeatedly to avoid overflowing diff --git a/libf2c/Makefile.in b/libf2c/Makefile.in index 2a5ecb960cbe..aee663847613 100644 --- a/libf2c/Makefile.in +++ b/libf2c/Makefile.in @@ -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 diff --git a/libf2c/libU77/Makefile.in b/libf2c/libU77/Makefile.in index bb101710d0c7..12d175ac6819 100644 --- a/libf2c/libU77/Makefile.in +++ b/libf2c/libU77/Makefile.in @@ -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 diff --git a/libf2c/libU77/u77-test.f b/libf2c/libU77/u77-test.f index 11c5ecae4492..fd82dad97cbf 100644 --- a/libf2c/libU77/u77-test.f +++ b/libf2c/libU77/u77-test.f @@ -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)