home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume3 / g-format / part3 / gfloat / f77 / src / f77pass1 / bb.c.diff next >
Encoding:
Text File  |  1986-11-30  |  974 b   |  23 lines
  1. *** ../f77/src/f77pass1/bb.c.orig    Tue Oct 29 15:15:44 1985
  2. --- ../f77/src/f77pass1/bb.c    Tue Oct 29 15:22:15 1985
  3. ***************
  4. *** 717,722
  5.                    }
  6.                 else  if( ISINT(type) )
  7.                      fprintf(diagfile," ci= %d\n",p->constblock.const.ci); 
  8.                 else if( ISREAL(type) )
  9.                      fprintf(diagfile," cd[0]= %e\n",p->constblock.const.cd[0]);
  10.                 else fprintf(diagfile," cd[0]= %e  cd[1]= %e\n",
  11.  
  12. --- 717,726 -----
  13.                    }
  14.                 else  if( ISINT(type) )
  15.                      fprintf(diagfile," ci= %d\n",p->constblock.const.ci); 
  16. + #ifdef GFLOAT
  17. +               else if( ISREAL(type) && type==TYREAL)
  18. +                    fprintf(diagfile," cr[0]= %e\n",p->constblock.const.cr[0]);
  19. + #endif GFLOAT
  20.                 else if( ISREAL(type) )
  21.                      fprintf(diagfile," cd[0]= %e\n",p->constblock.const.cd[0]);
  22.                 else fprintf(diagfile," cd[0]= %e  cd[1]= %e\n",
  23.