diff options
author | law <law@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-02-17 23:52:39 +0000 |
---|---|---|
committer | law <law@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-02-17 23:52:39 +0000 |
commit | fe7a4600995ea3c7322012c5510521bcf954c702 (patch) | |
tree | 7f8b912d34a5d35b03e3fb600f671e053e4f895c /libf2c/libU77 | |
parent | 5ee8fe307a6163a50f129da4492fbe2e6b176ed2 (diff) | |
download | ppe42-gcc-fe7a4600995ea3c7322012c5510521bcf954c702.tar.gz ppe42-gcc-fe7a4600995ea3c7322012c5510521bcf954c702.zip |
* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@18059 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libf2c/libU77')
-rw-r--r-- | libf2c/libU77/Makefile.in | 2 | ||||
-rw-r--r-- | libf2c/libU77/u77-test.f | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/libf2c/libU77/Makefile.in b/libf2c/libU77/Makefile.in index bb101710d0c..12d175ac681 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 11c5ecae449..fd82dad97cb 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) |