fortran/4398: float c subroutine returns bad value to FORTRAN main

[Sabba.Hillel@verizon.net]

>Number:         4398
>Category:       fortran
>Synopsis:       float c subroutine returns bad value to FORTRAN main
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    unassigned
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Tue Sep 25 15:46:01 PDT 2001
>Closed-Date:
>Last-Modified:
>Originator:     Sabba.Hillel@verizon.net
>Release:        gcc-3.0.1 g77-3.0.1
>Organization:
>Environment:
Solaris 5.6, 5.7, 5.8
compiled with g77-3.0.1 and gcc-3.0.1

used -fno-second-underscore
>Description:
When compiling a FORTRAN main program calling a C subroutine which returns a floating point value,
the result printed from the FORTRAN main routin is incorrect.
When compiling using Solaris Workshop 6, f77, the result is correct.
When using double returns, the results are correct.

I am unable to connect the system with the gcc to the net so I am typing in the test program


test-gcc.f

      PROGRAM TEST_G77

      REAL*4 PRINT_A
      REAL*4 TEST_GCC
      REAL*4 S, V, T
      REAL*8 PRINT_DA
      REAL*8 TEST_DGCC
      REAL*8 DS, DV, DT

      S = TEST_GCC(T)
      WRITE (*, '(A, F16.5, 3X, Z16)') "S = ", S, S
      WRITE (*, '(A, F16.5, 3X, Z16)') "T = ", T, T
      V = PRINT_A(S)
      V = PRINT_A(T)

      DS = TEST_DGCC(DT)
      WRITE (*, '(A, F16.5, 3X, Z16)') "DS = ", DS, DS
      WRITE (*, '(A, F16.5, 3X, Z16)') "DT = ", DT, DT
      DV = PRINT_A(DS)
      DV = PRINT_A(DT)
      END



C language functions test-gcc.c


float test_gcc_(float *b)
{
  float a;

  *b = 10.0;
  a = *b;
  printf("a=%f (%#x)\n", a, a);
  printf("b=%f (%#x)\n", b, b);
  return(a);
}

float print_a_(float *a)
{
  printf("A = %f (%#x)\n", *a, *a);
  return (0);
}

double test_dgcc_(double *db)
{
  double da;

  *db = 10.0;
  da = *db;
  printf("da=%f (%#x)\n", da, da);
  printf("db=%f (%#x)\n", db, db);
  return(da);
}

double print_da_(float *da)
{
  printf("DA = %f (%#x)\n", *da, *da);
  return (0);
}


-- 
Said the fox to the fish, "Join me ashore."
The fish are the Jews, Torah is our water.

Hillel (Sabba) Markowitz - sabbahem@bcpl.net
>How-To-Repeat:
See test program in description
>Fix:

>Release-Note:
>Audit-Trail:
>Unformatted: