| ²é¿´: 279 | »Ø¸´: 0 | |||
ÊéÏãÁ÷Äêгæ (СÓÐÃûÆø)
|
[½»Á÷]
C++ºÍfortranµÄ»ìºÏ±à³Ì
|
|
ÓÐľÓдóÉñ¾«Í¨fortranºÍC++µÄ»ìºÏ±à³Ì°¡¡£¼±Çó£¡Ò»Ö±Ìáʾ³ö´í 1>Ô´.obj : error LNK2019: ÎÞ·¨½âÎöµÄÍⲿ·ûºÅ _FACT@4£¬¸Ã·ûºÅÔÚº¯Êý _main Öб»ÒýÓã¡£¡£¡£¡£¡£¡£¡£¡ ÎÒÓõÄÊÇÍøÉÏ˵µÄÄÇÖÖÒþʽÁ´½ÓµÄ·½·¨¡£¡£¡£¡£¡£¡£Ò»Ö±ÌáʾÕâ¸ö´íÎóÕ¦Õû°¡¡£¡£¡£¡£¡£¡£ÇóÖ¸µ¼°¡£¡£¡£¡£¡555555555555555555555 fortran³ÌÐò£º ! forsubs.f90 ! ! FUNCTIONS/SUBROUTINES exported from FORSUBS.lib: ! FORSUBS - subroutine ! INTEGER*4 FUNCTION FACT (n) !ms$if .not. defined(LINKDIRECT) !ms$attributes dllexport::Fact !ms$endif INTEGER*4 n [VALUE] INTEGER*4 i, amt amt = 1 DO i = 1, n amt = amt * i END DO FACT = amt write(*,*)"Mixed calls succeed!" END C++³ÌÐò£º #include <stdio.h> extern "C" {int _stdcall FACT(int n); } int main() { float c; printf("Factorial of 7 is: %d\n", FACT(7)); } |
» ²ÂÄãϲ»¶
085600£¬²ÄÁÏÓ뻯¹¤321·Ö£¬Çóµ÷¼Á
ÒѾÓÐ13È˻ظ´
311Çóµ÷¼Á
ÒѾÓÐ8È˻ظ´
348Çóµ÷¼Á
ÒѾÓÐ3È˻ظ´
0805Çóµ÷¼Á
ÒѾÓÐ8È˻ظ´
266·Ö£¬Ò»Ö¾Ô¸µçÆø¹¤³Ì£¬±¾¿Æ²ÄÁÏ£¬Çó²ÄÁÏרҵµ÷¼Á
ÒѾÓÐ3È˻ظ´
385·Ö ÉúÎïѧ£¨071000£©Çóµ÷¼Á
ÒѾÓÐ6È˻ظ´
²ÄÁϵ÷¼Á
ÒѾÓÐ3È˻ظ´
Ò»Ö¾Ô¸±±½»´ó²ÄÁϹ¤³Ì×Ü·Ö358
ÒѾÓÐ9È˻ظ´
311Çóµ÷¼Á
ÒѾÓÐ12È˻ظ´
319Çóµ÷¼Á
ÒѾÓÐ11È˻ظ´














»Ø¸´´ËÂ¥