steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge branch 'master' of git://github.com/slavapestov/factor

db4
erikc 2010-02-01 22:13:05 -08:00
parent 03966e4fb2 f1bbeec198
commit e82aca026c
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
basis/alien/fortran/fortran-tests.factor
View File

@ -3,7 +3,7 @@ USING: accessors alien alien.c-types alien.complex
alien.data alien.fortran alien.fortran.private alien.strings alien.data alien.fortran alien.fortran.private alien.strings
classes.struct arrays assocs byte-arrays combinators fry classes.struct arrays assocs byte-arrays combinators fry
generalizations io.encodings.ascii kernel macros generalizations io.encodings.ascii kernel macros
macros.expander namespaces sequences shuffle tools.test ; macros.expander namespaces sequences shuffle tools.test vocabs.parser ;
QUALIFIED-WITH: alien.c-types c QUALIFIED-WITH: alien.c-types c
IN: alien.fortran.tests IN: alien.fortran.tests
@ -91,7 +91,12 @@ intel-unix-abi fortran-abi [
[ "complex*16" fortran-type>c-type ] unit-test [ "complex*16" fortran-type>c-type ] unit-test
[ fortran_test_record ] [ fortran_test_record ]
[ "fortran_test_record" fortran-type>c-type ] unit-test [
[
"alien.fortran.tests" use-vocab
"fortran_test_record" fortran-type>c-type
] with-manifest
] unit-test
! fortran-arg-type>c-type ! fortran-arg-type>c-type
@ -105,7 +110,12 @@ intel-unix-abi fortran-abi [
[ "integer(*)" fortran-arg-type>c-type ] unit-test [ "integer(*)" fortran-arg-type>c-type ] unit-test
[ c:void* { } ] [ c:void* { } ]
[ "fortran_test_record" fortran-arg-type>c-type ] unit-test [
[
"alien.fortran.tests" use-vocab
"fortran_test_record" fortran-arg-type>c-type
] with-manifest
] unit-test
[ c:char* { } ] [ c:char* { } ]
[ "character" fortran-arg-type>c-type ] unit-test [ "character" fortran-arg-type>c-type ] unit-test