Fortran与C混编的接口问题

安靖

[Fortran] 纯文本查看 复制代码

 Interface
         Subroutine ALLC (pmem,size,message)
!DEC$ Attributes C, Alias : '_allc' :: ALLC
         integer pmem [reference]
         Integer size [reference]
         character(*) message [reference]
         end subroutine ALLCend interface

[C] 纯文本查看 复制代码

/* Function allc */
/* This function allcs memory for 'mem' of size 'size' */
/* In case of failure it outputs a message 'message' */

void allc (int **mem , int *size, char message[200])

{
if (*size < 0)
{
printf (" allc - STORAGE ALLOCATION FAILED: %s \n", message);
printf (" Number of words requested: %d\n", *size);
printf (" Length is <= 0\n");
exit (1);
}
*mem = (int *) calloc (((*size)+1) * sizeof (int),1);
if (*mem == 0)
{
printf (" allc - STORAGE ALLOCATION FAILED: %s \n", message);
printf (" Number of words requested: %d\n", *size);
exit (1);
}
}

以上是一段Fortran与C混编，Fortran调用C来分配内存的接口，以及C的实现

问题1：
integer pmem [reference] 中 [reference] 什么意思？ 没见过这种用法

问题2：
按照这种接口，32位的情况下没有问题，但是64位的时候会出现链接错误。
error LNK2001: 无法解析的外部符号 _allc

安靖

pasuka 发表于 2017-9-1 09:29
网上找了找，原来是VC6时代fortran与C混合编程的遗迹
C/C++ and Fortran Defaults for Passing Parameters
...

感谢解答了我的疑惑，也验证了2楼的猜测。 谢谢2位。

另外，引起第二个问题的原因是 32位和64位下编译出来的函数修饰名(Decoration name)是不同的。
原来一直不知道还有这区别呢