linking c and fortran in the same archive

[Jean-François MAUREL]

Hi every one,

I am a newcomer to gcc. I searched within documentation and mailing list 
archive but did not find anything useful for the following issue:
I cannot link c and f object files when I provide a single archive file. 
I can do it only when I provide individual object files

Below are the details:

I can compile link and execute a test program containing a c program 
file and a fortran program file (see below) with following set of commands:
 (Windows Vista MinGW gcc , gfortran 4.4.0 ):
gcc -c main.c -omain.o -Wall
gfortran -c sub.f -osub.o -Wall
gcc *.o  -Wall -enable-stdcall-fixup -omain.exe

when I use the following commands I have an undefined reference error :
gcc -c main.c -omain.o -Wall
gfortran -c sub.f -osub.o -Wall
ar -r libtotal.a main.o sub.o
gcc -ltotal  -Wall -enable-stdcall-fixup -omain.exe -L.
./libtotal.a(main.o):main.c:(.text+0x6b): undefined reference to `test_@24'
collect2: ld a retourné 1 code d'état d'exécution

Could someone tell what I am missing here?



main.c
==============
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#define INTEGER long
#define STRING_SIZE unsigned int

#define CALL_TEST(a,b,c,d,e) test_(a,b,c,d,e,strlen(b))
void __attribute__((stdcall)) test_(INTEGER *, char *, INTEGER *, double 
*, double *, STRING_SIZE);

int main(int argc, char **argv)
{
   INTEGER ivers, ilog;
   char vdate[11] = "           ";
   int iret=4;
   double res, res2;
   vdate[10] = '\0';

   CALL_TEST(&ivers, &vdate[0], &ilog,&res, &res2);
   printf("RESULTS : %ld / '%s' / %ld / %f / %f\n", ivers, vdate, ilog, 
res, res2);
   if (ivers == 10 && res == 10. && res2 == 5. && strncmp(vdate, 
"01/01/2010", 10) == 0) {
      iret = 0;
   }
   printf("EXIT_CODE=%d\n", iret);
   exit(iret);
}
=============
sub.f
=======
      SUBROUTINE TEST(VERS,DATE,EXPLOI, RES, RES2)

      IMPLICIT NONE  
      INTEGER VERS
      CHARACTER*10 DATE
      LOGICAL      EXPLOI
C
      REAL*8  RES, RES2
C
      VERS = 10
      DATE = '01/01/2010'
      EXPLOI = .TRUE.
C     
      RES = 10.D0
      RES2 = 5.D0
      END




-- 
Jean-François MAUREL
PI Méca
4 rue de l'abreuvoir
92400 Courbevoie France
phone: 33(0)147176513