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

diff --git a/libf2c/ChangeLog.egcs b/libf2c/ChangeLog.egcs
index a92c00b9cd137c2b5d072f4f8fec87ccd0d75bb7..3c0bcb1342dd4a758dd59dc9df920dcbb83e2119 100644 (file)
--- a/libf2c/ChangeLog.egcs
+++ b/libf2c/ChangeLog.egcs
@@ -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

diff --git a/libf2c/Makefile.in b/libf2c/Makefile.in
index 2a5ecb960cbe38aa7f66144ad138a372133af8fd..aee663847613f7d91c7a69a54af34e8bdffce3ea 100644 (file)
--- 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 bb101710d0c72cc49af53b7a7e81beb4a5954b46..12d175ac6819184c5b7f120e52a238cf0d849356 100644 (file)
--- 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 11c5ecae449212cbc7721048156725f07b1c7975..fd82dad97cbf0f497b4eae654ddf34d33747f914 100644 (file)
--- 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)