ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность

A fortran fix corresponding to r26543 for Windows build. Thanks to Eugene.

Просмотр исходного кода 
This commit was SVN r26546.

The following SVN revision numbers were found above:
  r26543 --> open-mpi/ompi@e91d3a6f13
Этот коммит содержится в:
Shiqing Fan 2012-06-04 08:33:30 +00:00
родитель 1cbce83ece
Коммит c519352d7e
1 изменённых файлов: 5 добавлений и 3 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

8
contrib/platform/win32/CMakeModules/f77_check_real16_c_equiv.cmake
Просмотреть файл

@ -28,9 +28,11 @@ MACRO(OMPI_F77_CHECK_REAL16_C_EQUIV)
"extern \"C\" {\n" "extern \"C\" {\n"
"#endif\n" "#endif\n"
"void ${ompi_ac_c_fn}(${ompi_fortran_real16_t} *a) {\n" "void ${ompi_ac_c_fn}(${ompi_fortran_real16_t} *a) {\n"
" ${ompi_fortran_real16_t} foo = 11; "
" FILE *fp = fopen(\"conftestval\", \"w\");\n" " FILE *fp = fopen(\"conftestval\", \"w\");\n"
" if (NULL == fp) exit(1);\n" " if (NULL == fp) exit(1);\n"
" fprintf(fp, \"%s\n\", (1.1L == *a) ? \"yes\" : \"no\");\n" " foo = 1 / foo;"
" fprintf(fp, \"%s\n\", (foo == *a) ? \"yes\" : \"no\");\n"
" fclose(fp);\n" " fclose(fp);\n"
"}\n" "}\n"
"#ifdef __cplusplus\n" "#ifdef __cplusplus\n"
@ -39,8 +41,8 @@ MACRO(OMPI_F77_CHECK_REAL16_C_EQUIV)
FILE(WRITE ${CMAKE_BINARY_DIR}${CMAKE_FILES_DIRECTORY}/CMakeTmp/conftest_f.f FILE(WRITE ${CMAKE_BINARY_DIR}${CMAKE_FILES_DIRECTORY}/CMakeTmp/conftest_f.f
"\tprogram bogus\n" "\tprogram bogus\n"
"\tREAL*16 :: foo\n" "\tREAL*16 :: foo = 11\n"
"\tfoo = 1.1\n" "\tfoo = 1 / foo\n"
"\tcall c(foo)\n" "\tcall c(foo)\n"
"\tend program bogus\n") "\tend program bogus\n")