Передача массива символов из VBA в Fortran DLL через Тип повреждает другие члены типа

Верьте или нет, это название примерно так же коротко, как я мог бы сделать это и все еще описать проблему, которую я имею!

Итак, вот сценарий: я вызываю Fortran DLL из VBA, и DLL использует пользовательские типы или любое имя Fortran для этого (структуры?) в качестве аргумента и копирует тип обратно для проверки.

тип имеет массив символов фиксированной длины и некоторый запуск целых чисел мельницы.

я заметил некоторые забавное поведение в любых атрибутах, определенных после этого массива символов, которые я перейду ниже, сразу после описания моей сводной настройки тестирования:

Сторона Фортрана:

вот основная программа:

SUBROUTINE characterArrayTest (simpleTypeIn, simpleTypeOut)


           use simpleTypeDefinition


!GCC$ ATTRIBUTES STDCALL :: characterArrayTest


           type(simpleType),                INTENT(IN)     :: simpleTypeIn
           type(simpleType),                INTENT(OUT)    :: simpleTypeOut


           simpleTypeOut = simpleTypeIn


END SUBROUTINE characterArrayTest

и вот файл модуля simpleTypeDefinition:

Module simpleTypeDefinition


  Type simpleType

     character (len=1)  :: CharacterArray(1) 
     !The length of the array is one here, but modified in tests

     integer   (kind=2) :: FirstInteger

     integer   (kind=2) :: SecondInteger

     integer   (kind=2) :: ThirdInteger

  End Type simpleType


End Module simpleTypeDefinition

этапе компиляции:

 gfortran -c simpleTypeDefinition.f90 characterArrayTest.f90
 gfortran -shared -static -o characterArrayTest.dll characterArrayTest.o

Примечание: это 32-разрядная версия gfortran, так как я использую 32-разрядная версия Excel.

сторона VBA:

во-первых, зеркальные операторы simpleType и declare:

Type simpleType

    CharacterArray(0) As String * 1  
    'The length of the array is one here, but modified in tests

    FirstInteger As Integer

    SecondInteger As Integer

    ThirdInteger As Integer

End Type

Declare Sub characterArrayTest Lib "characterArrayTest.dll" _
Alias "characterarraytest_@8" _
(simpleTypeIn As simpleType, simpleTypeOut As simpleType)

далее телефонный код:

Dim simpleTypeIn As simpleType
Dim simpleTypeOut As simpleType

simpleTypeIn.CharacterArray(0) = "A"
'simpleTypeIn.CharacterArray(1) = "B"
'simpleTypeIn.CharacterArray(1) = "C"
'simpleTypeIn.CharacterArray(3) = "D"

simpleTypeIn.FirstInteger = 1
simpleTypeIn.SecondInteger = 2
simpleTypeIn.ThirdInteger = 3

Call Module4.characterArrayTest(simpleTypeIn, simpleTypeOut)

Странное, Багги Поведение:

теперь, когда мы прошли настройку, я могу описать, что происходит:

(я играю с длиной массива символов, оставляя длину отдельного персонажа символы установлены в один. Во всех случаях я сопоставляю параметры массива символов с обеих сторон.)

тестовый пример: длина CharacterArray = 1

для этого первого случая все отлично работает, я передаю simpleTypeIn и simpleTypeOut из VBA, DLL Fortran принимает его и копирует simpleTypeIn в simpleTypeOut, а после вызова VBA возвращает simpleTypeOut с идентичными атрибутами CharacterArray, FirstInteger и т. д.

тестовый пример: длина CharacterArray = 2

здесь все становится интересным.

перед вызовом simpleTypeIn был определен. Сразу после звонка, simpleTypeIn.ThirdInteger изменился с 3 до 65! Еще более странно, 65-это значение ASCII для символа A, который является simpleTypeIn.CharacterArray(0).

Я проверил это отношение, изменив " A " на " ( " , который имеет значение ASCII 40, и, конечно же,, simpleTypeIn.ThirdInteger изменено на 40. Странный.

в любом случае, можно было бы ожидать, что simpleTypeOut будет копией любой странной вещи, в которую simpleTypeIn был преобразован, но не так! simpleTypeOut была копией simpleTypeIn, за исключением simpleTypeOut.ThirdInteger, который был 16961!

тестовый пример: длина CharacterArray = 3

этот случай был идентичен случаю 2, как ни странно.

тестовый случай: Длина CharacterArray = 4

в этом также странном случае, после вызова simpleTypeIn.SecondInteger изменился с 2 до 65 и simpleTypeIn.ThirdInteger изменен с 3 на 66, что является значением ASCII для B.

не быть превзойденным, simpleTypeOut.SecondInteger вышел как 16961 и simpleTypeOut.ThirdInteger был 17475. Другие значения успешно скопированы (я decommented в B, C и D характер заданий, чтобы соответствовать массива размер.)

замечания:

это странное повреждение кажется линейным по отношению к байтам в массиве символов. Я сделал некоторое тестирование, которое я каталогизирую, если кто-то хочет в понедельник с отдельными символами длины 2 вместо 1, и повреждение произошло, когда массив имел размер 1, а не ожидание, пока размер не будет 2. Он также не "пропускал" дополнительное повреждение, когда размер массива был 3, как размер = 1 случай делавший.

Это легко Зал славы ошибка для меня; я уверен, вы можете себе представить, сколько сосредоточенного удовольствия это было изолировать в крупномасштабной программе с тонной атрибутов типа. Если у кого-нибудь есть какие-либо идеи, это было бы очень признательно!

если я не вернусь к вам сразу, это потому, что я звоню в день, но я попытаюсь контролировать свой почтовый ящик.