zeliboba1
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[more] "Может Interoperability with C поможет?"
Igorr, помогло! и еше __declspec(dllimport) необходимо в описании структуры.
глупая ошибка, но почему почти ни в одной статье о смешивании фортрана и с++ нет упоминания ни об одном ни о втором, работает и так...
рабочая версия:
*********************************************
subroutine F
USE ISO_C_BINDING
COMMON /abc/ a
REAL(C_DOUBLE) :: a
BIND(C) :: /abc/
!DEC$ ATTRIBUTES DLLEXPORT::F,/abc/
a=12.34
write(*,*) "Test!"
end
*********************************************
#include <iostream>
#pragma comment(lib,"fdll.lib")
using namespace std;
extern "C" {
extern __declspec(dllimport) struct variables { double a; } abc;
void F();
}
int main()
{
F();
std::cout<<abc.a;
return 0;
}
********************************************** |
Всего записей: 4 | Зарегистр. 07-02-2012 | Отправлено: 05:33 08-02-2012 | Исправлено: zeliboba1, 15:54 10-02-2012 |
|
