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

libf2c/ChangeLog.egcs

+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

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

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

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)