向高手请教fortran 调用C 的问题

我现在要些一个fortran调用C接口的问题，但是不知道 C语言里面分配的指针怎么付给fortran,又不能在fortran立马先分配好，业务上不允许。
我写了个测试的例子。但是不行。


test.c
#include <stdio.h>
#include <string.h>
#include <malloc.h>
#include <stdlib.h>

int itest_(char **p)
{
  *p = (char*) malloc(sizeof(char) * 18);
  sprintf(*p,"%s","gbcd");
  return 1;
}


test.F90
program main
   
  interface  
  integer function itest(pchar)
  CHARACTER,pointer::pchar(:)
   
  end function
  end interface 
   




  CHARACTER ,pointer:: pchar(:)
  integer iout
  CHARACTER ac
  CHARACTER ab,ad
   
  iout = itest(pchar)
  ac=pchar(1)
  ab=pchar(2)
  ad=pchar(3)
  write(*,*)ac
  write(*,*)ab
  write(*,*)ad

  end program
   
但是运行结果是
g
g
g

请高手帮忙。

---

帮顶~~

---

顶