This is the mail archive of the gcc@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

libf2c non-null check target


I was supposed to provide this vaguely-useful libf2c check target;
added some dependencies for such work too.

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.

Index: Makefile.in
===================================================================
RCS file: /egcs/carton/cvsfiles/egcs/libf2c/Makefile.in,v
retrieving revision 1.3
diff -u -p -c -r1.3 Makefile.in
*** Makefile.in	1998/02/11 00:44:50	1.3
--- Makefile.in	1998/02/17 23:26:15
*************** ${srcdir}/configure: ${srcdir}/configure
*** 192,201 ****
  	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: $(srcdir)/f2c.h.in
  
! info install-info clean-info check dvi:
  
  install:
  	$(INSTALL_DATA) $(lib) $(libdir)/$(lib).n
--- 192,208 ----
  	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 dvi:
! 
! check:
! 	cd libU77; $(MAKE) G77DIR=../../../gcc/ check
  
  install:
  	$(INSTALL_DATA) $(lib) $(libdir)/$(lib).n
diff: conflicting specifications of output style
Index: libU77/Makefile.in
===================================================================
RCS file: /egcs/carton/cvsfiles/egcs/libf2c/libU77/Makefile.in,v
retrieving revision 1.1
diff -u -p -c -r1.1 Makefile.in
*** Makefile.in	1998/02/01 01:37:07	1.1
--- Makefile.in	1998/02/17 23:13:57
*************** distclean realclean maintainer-clean: cl
*** 82,88 ****
  $(OBJS): $(F2C_H) config.h
  
  check:
! 	-$(G77DIR)g77 -B$(G77DIR) -g $(srcdir)/u77-test.f $(lib) && ./a.out
  	rm -f a.out
  
  access_.o: access_.c
--- 82,88 ----
  $(OBJS): $(F2C_H) config.h
  
  check:
! 	-$(G77DIR)g77 -B$(G77DIR) -L.. -g $(srcdir)/u77-test.f $(lib) && ./a.out
  	rm -f a.out
  
  access_.o: access_.c
diff: conflicting specifications of output style
Index: libU77/u77-test.f
===================================================================
RCS file: /egcs/carton/cvsfiles/egcs/libf2c/libU77/u77-test.f,v
retrieving revision 1.1
diff -u -p -c -r1.1 u77-test.f
*** u77-test.f	1998/02/01 01:37:08	1.1
--- u77-test.f	1998/02/17 23:13:57
***************
*** 66,72 ****
        r1= etime (tarray1)
        if (r1.ne.tarray1(1)+tarray1(2))
       +     write (6,*) '*** ETIME didn''t return sum of the array: ',
!      +     r1, ' /= ', tarray1
        r2= dtime (tarray2)
        if (abs (r1-r2).gt.1.0) write (6,*)
       +     'Results of ETIME and DTIME differ by more than a second:',
--- 66,72 ----
        r1= etime (tarray1)
        if (r1.ne.tarray1(1)+tarray1(2))
       +     write (6,*) '*** ETIME didn''t return sum of the array: ',
!      +     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,85 ****
        write (6,*) 'IDATE d,m,y: ',idat
        print *,  '... and the VXT version: ', i,j,k
        call time(line(:8))
!       print *, line(:8)
        write (6,*) 'SECNDS(0.0) returns: ',secnds(0.0)
        write (6,*) 'SECOND returns: ', second()
        call dumdum(r1)
--- 79,85 ----
        write (6,*) 'IDATE d,m,y: ',idat
        print *,  '... and the VXT version: ', i,j,k
        call time(line(:8))
!       print *, 'TIME: ', line(:8)
        write (6,*) 'SECNDS(0.0) returns: ',secnds(0.0)
        write (6,*) 'SECOND returns: ', second()
        call dumdum(r1)
diff: conflicting specifications of output style


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]