I am reporting the following bug I found w/ gdb in the hopes I can
get a fix. I have a fortran code (attached above called ax_gen_c.f) that I
compiled w/ g77 and the -g option (ax_gen_c also attached above). When I
use gdb or xxgdb I can't view the source file. If I compile a C code
(attached above as test.c) and use the -g option (attached above as test)
then i can view the source file.

If there is something I am doing wrong please let me know.

I ran on a dell INSPIRON 8000 laptop w/ redhat 7 liunix O/S.

Thanks,

*******************************************************************************

Grum Teklemariam
PhD Candidate
Department of Physics & Nuclear Engineering
Massachusetts Institute of Technology
Room NW14-2311
166 Albany Street
Cambridge, MA  02139

(617) 258-0876
      PROGRAM GENERATE SEMI CIRCLES
C  9/31/99
      REAL*8 PI,C_R,C_X,C_Y,THETA,DTHETA
      PARAMETER(PI=3.141592653589793D0)

      PRINT *,'ENTER RADIUS R: '
      READ(5,*)C_R

      OPEN(10,FILE='ax_gcirc')
      PRINT *,' - file  - ax_gcirc'

      NK=2*NINT(2*PI*C_R)+1
      DTHETA=1./2/C_R
      THETA=0.
      FLAG=O

      DO 11 I=1,NK
      C_X=C_R*COS(THETA)
      C_Y=C_R*SIN(THETA)
      THETA=THETA+DTHETA
      WRITE(10,*)SNGL(C_X),SNGL(C_Y),INT(FLAG)
11    FLAG=1
      ENDFILE 10
      CLOSE(10)
      END

ax_gen_c

/* This program is a test */
#include <stdio.h>

float mul(float a, float b);

void main(void)
{
  float x, y, z;

  scanf("%f%f", &x, &y);
  printf("%f", mul(x, y));
}

float mul(float a, float b)
{
  return a*b;
} 

test

Reply via email to