| 1 | |
|---|
| 2 | |
|---|
| 3 | |
|---|
| 4 | |
|---|
| 5 | |
|---|
| 6 | |
|---|
| 7 | |
|---|
| 8 | |
|---|
| 9 | |
|---|
| 10 | |
|---|
| 11 | |
|---|
| 12 | |
|---|
| 13 | |
|---|
| 14 | |
|---|
| 15 | |
|---|
| 16 | |
|---|
| 17 | |
|---|
| 18 | |
|---|
| 19 | |
|---|
| 20 | |
|---|
| 21 | |
|---|
| 22 | |
|---|
| 23 | |
|---|
| 24 | |
|---|
| 25 | |
|---|
| 26 | |
|---|
| 27 | |
|---|
| 28 | |
|---|
| 29 | |
|---|
| 30 | |
|---|
| 31 | |
|---|
| 32 | |
|---|
| 33 | |
|---|
| 34 | |
|---|
| 35 | |
|---|
| 36 | |
|---|
| 37 | |
|---|
| 38 | |
|---|
| 39 | |
|---|
| 40 | |
|---|
| 41 | AC_DEFUN([PAC_PROG_F77_NAME_MANGLE],[ |
|---|
| 42 | AC_CACHE_CHECK([for Fortran 77 name mangling], |
|---|
| 43 | pac_cv_prog_f77_name_mangle, |
|---|
| 44 | [ |
|---|
| 45 | |
|---|
| 46 | |
|---|
| 47 | |
|---|
| 48 | |
|---|
| 49 | |
|---|
| 50 | |
|---|
| 51 | |
|---|
| 52 | |
|---|
| 53 | |
|---|
| 54 | |
|---|
| 55 | rm -rf conftest.dSYM |
|---|
| 56 | rm -f conftest* |
|---|
| 57 | cat > conftest.f <<EOF |
|---|
| 58 | subroutine MY_name( i ) |
|---|
| 59 | return |
|---|
| 60 | end |
|---|
| 61 | EOF |
|---|
| 62 | |
|---|
| 63 | if test "X$ac_fcompile" = "X" ; then |
|---|
| 64 | ac_fcompile='${F77-f77} -c $FFLAGS conftest.f 1>&AC_FD_CC' |
|---|
| 65 | fi |
|---|
| 66 | if AC_TRY_EVAL(ac_fcompile) && test -s conftest.o ; then |
|---|
| 67 | mv conftest.o fconftestf.o |
|---|
| 68 | else |
|---|
| 69 | echo "configure: failed program was:" >&AC_FD_CC |
|---|
| 70 | cat conftest.f >&AC_FD_CC |
|---|
| 71 | fi |
|---|
| 72 | |
|---|
| 73 | AC_LANG_SAVE |
|---|
| 74 | AC_LANG_C |
|---|
| 75 | save_LIBS="$LIBS" |
|---|
| 76 | |
|---|
| 77 | LIBS="fconftestf.o $FLIBS $LIBS" |
|---|
| 78 | AC_TRY_LINK([extern void my_name(int);],my_name(0);,pac_cv_prog_f77_name_mangle="lower") |
|---|
| 79 | if test "X$pac_cv_prog_f77_name_mangle" = "X" ; then |
|---|
| 80 | AC_TRY_LINK([extern void my_name_(int);],my_name_(0);,pac_cv_prog_f77_name_mangle="lower underscore") |
|---|
| 81 | fi |
|---|
| 82 | if test "X$pac_cv_prog_f77_name_mangle" = "X" ; then |
|---|
| 83 | AC_TRY_LINK([void __stdcall MY_NAME(int);],MY_NAME(0);,pac_cv_prog_f77_name_mangle="upper stdcall") |
|---|
| 84 | fi |
|---|
| 85 | if test "X$pac_cv_prog_f77_name_mangle" = "X" ; then |
|---|
| 86 | AC_TRY_LINK([extern void MY_NAME(int);],MY_NAME(0);,pac_cv_prog_f77_name_mangle="upper") |
|---|
| 87 | fi |
|---|
| 88 | if test "X$pac_cv_prog_f77_name_mangle" = "X" ; then |
|---|
| 89 | AC_TRY_LINK([extern void my_name__(int);],my_name__(0);, |
|---|
| 90 | pac_cv_prog_f77_name_mangle="lower doubleunderscore") |
|---|
| 91 | fi |
|---|
| 92 | if test "X$pac_cv_prog_f77_name_mangle" = "X" ; then |
|---|
| 93 | AC_TRY_LINK([extern void MY_name(int);],MY_name(0);,pac_cv_prog_f77_name_mangle="mixed") |
|---|
| 94 | fi |
|---|
| 95 | if test "X$pac_cv_prog_f77_name_mangle" = "X" ; then |
|---|
| 96 | AC_TRY_LINK([extern void MY_name_(int);],MY_name_(0);,pac_cv_prog_f77_name_mangle="mixed underscore") |
|---|
| 97 | fi |
|---|
| 98 | LIBS="$save_LIBS" |
|---|
| 99 | AC_LANG_RESTORE |
|---|
| 100 | |
|---|
| 101 | |
|---|
| 102 | |
|---|
| 103 | |
|---|
| 104 | |
|---|
| 105 | |
|---|
| 106 | |
|---|
| 107 | |
|---|
| 108 | if test "X$pac_cv_prog_f77_name_mangle" = "X" ; then |
|---|
| 109 | AC_LANG_SAVE |
|---|
| 110 | AC_LANG_FORTRAN77 |
|---|
| 111 | save_LIBS="$LIBS" |
|---|
| 112 | LIBS="conftestc.o $LIBS" |
|---|
| 113 | if test "X$ac_ccompile" = "X" ; then |
|---|
| 114 | ac_ccompile='${CC-cc} -c $CFLAGS conftest.c 1>&AC_FD_CC' |
|---|
| 115 | fi |
|---|
| 116 | |
|---|
| 117 | rm -rf conftest.dSYM |
|---|
| 118 | rm -f conftest* |
|---|
| 119 | cat > conftest.c <<EOF |
|---|
| 120 | void my_name( int a ) { } |
|---|
| 121 | EOF |
|---|
| 122 | if AC_TRY_EVAL(ac_ccompile) && test -s conftest.o ; then |
|---|
| 123 | mv conftest.o conftestc.o |
|---|
| 124 | else |
|---|
| 125 | echo "configure: failed program was:" >&AC_FD_CC |
|---|
| 126 | cat conftest.c >&AC_FD_CC |
|---|
| 127 | fi |
|---|
| 128 | |
|---|
| 129 | AC_LINK_IFELSE([AC_LANG_PROGRAM(,[[ call my_name(0)]])], |
|---|
| 130 | pac_cv_prog_f77_name_mangle="lower") |
|---|
| 131 | |
|---|
| 132 | if test "X$pac_cv_prog_f77_name_mangle" = "X" ; then |
|---|
| 133 | |
|---|
| 134 | rm -rf conftest.dSYM |
|---|
| 135 | rm -f conftest* |
|---|
| 136 | cat > conftest.c <<EOF |
|---|
| 137 | void my_name_(int a) { } |
|---|
| 138 | EOF |
|---|
| 139 | if AC_TRY_EVAL(ac_ccompile) && test -s conftest.o ; then |
|---|
| 140 | mv conftest.o conftestc.o |
|---|
| 141 | else |
|---|
| 142 | echo "configure: failed program was:" >&AC_FD_CC |
|---|
| 143 | cat conftest.c >&AC_FD_CC |
|---|
| 144 | fi |
|---|
| 145 | AC_LINK_IFELSE([AC_LANG_PROGRAM(,[[ call my_name(0)]])], |
|---|
| 146 | pac_cv_prog_f77_name_mangle="lower underscore") |
|---|
| 147 | fi |
|---|
| 148 | if test "X$pac_cv_prog_f77_name_mangle" = "X" ; then |
|---|
| 149 | |
|---|
| 150 | rm -rf conftest.dSYM |
|---|
| 151 | rm -f conftest* |
|---|
| 152 | cat >conftest.c <<EOF |
|---|
| 153 | void __stdcall MY_NAME(int a) {} |
|---|
| 154 | EOF |
|---|
| 155 | if AC_TRY_EVAL(ac_ccompile) && test -s conftest.o ; then |
|---|
| 156 | mv conftest.o conftestc.o |
|---|
| 157 | else |
|---|
| 158 | echo "configure: failed program was:" >&AC_FD_CC |
|---|
| 159 | cat conftest.c >&AC_FD_CC |
|---|
| 160 | fi |
|---|
| 161 | AC_LINK_IFELSE([AC_LANG_PROGRAM(,[[ call my_name(0)]])], |
|---|
| 162 | pac_cv_prog_f77_name_mangle="upper stdcall") |
|---|
| 163 | fi |
|---|
| 164 | if test "X$pac_cv_prog_f77_name_mangle" = "X" ; then |
|---|
| 165 | |
|---|
| 166 | rm -rf conftest.dSYM |
|---|
| 167 | rm -f conftest* |
|---|
| 168 | cat >conftest.c <<EOF |
|---|
| 169 | void MY_NAME(int a) {} |
|---|
| 170 | EOF |
|---|
| 171 | if AC_TRY_EVAL(ac_ccompile) && test -s conftest.o ; then |
|---|
| 172 | mv conftest.o conftestc.o |
|---|
| 173 | else |
|---|
| 174 | echo "configure: failed program was:" >&AC_FD_CC |
|---|
| 175 | cat conftest.c >&AC_FD_CC |
|---|
| 176 | fi |
|---|
| 177 | AC_LINK_IFELSE([AC_LANG_PROGRAM(,[[ call MY_NAME(0)]])], |
|---|
| 178 | pac_cv_prog_f77_name_mangle="upper") |
|---|
| 179 | fi |
|---|
| 180 | if test "X$pac_cv_prog_f77_name_mangle" = "X" ; then |
|---|
| 181 | |
|---|
| 182 | rm -rf conftest.dSYM |
|---|
| 183 | rm -f conftest* |
|---|
| 184 | cat >conftest.c <<EOF |
|---|
| 185 | void my_name__(int a) {} |
|---|
| 186 | EOF |
|---|
| 187 | if AC_TRY_EVAL(ac_ccompile) && test -s conftest.o ; then |
|---|
| 188 | mv conftest.o conftestc.o |
|---|
| 189 | else |
|---|
| 190 | echo "configure: failed program was:" >&AC_FD_CC |
|---|
| 191 | cat conftest.c >&AC_FD_CC |
|---|
| 192 | fi |
|---|
| 193 | AC_LINK_IFELSE([AC_LANG_PROGRAM(,[[ call my_name(0)]])], |
|---|
| 194 | pac_cv_prog_f77_name_mangle="lower doubleunderscore") |
|---|
| 195 | fi |
|---|
| 196 | if test "X$pac_cv_prog_f77_name_mangle" = "X" ; then |
|---|
| 197 | |
|---|
| 198 | rm -rf conftest.dSYM |
|---|
| 199 | rm -f conftest* |
|---|
| 200 | cat >conftest.c <<EOF |
|---|
| 201 | void MY_name(int a) {} |
|---|
| 202 | EOF |
|---|
| 203 | if AC_TRY_EVAL(ac_ccompile) && test -s conftest.o ; then |
|---|
| 204 | mv conftest.o conftestc.o |
|---|
| 205 | else |
|---|
| 206 | echo "configure: failed program was:" >&AC_FD_CC |
|---|
| 207 | cat conftest.c >&AC_FD_CC |
|---|
| 208 | fi |
|---|
| 209 | AC_LINK_IFELSE([AC_LANG_PROGRAM(,[[ call MY_name(0)]])], |
|---|
| 210 | pac_cv_prog_f77_name_mangle="mixed") |
|---|
| 211 | fi |
|---|
| 212 | if test "X$pac_cv_prog_f77_name_mangle" = "X" ; then |
|---|
| 213 | |
|---|
| 214 | rm -rf conftest.dSYM |
|---|
| 215 | rm -f conftest* |
|---|
| 216 | cat >conftest.c <<EOF |
|---|
| 217 | void MY_name_(int a) {} |
|---|
| 218 | EOF |
|---|
| 219 | if AC_TRY_EVAL(ac_ccompile) && test -s conftest.o ; then |
|---|
| 220 | mv conftest.o conftestc.o |
|---|
| 221 | else |
|---|
| 222 | echo "configure: failed program was:" >&AC_FD_CC |
|---|
| 223 | cat conftest.c >&AC_FD_CC |
|---|
| 224 | fi |
|---|
| 225 | AC_LINK_IFELSE([AC_LANG_PROGRAM(,[[ call MY_name(0)]])], |
|---|
| 226 | pac_cv_prog_f77_name_mangle="mixed underscore") |
|---|
| 227 | fi |
|---|
| 228 | LIBS="$save_LIBS" |
|---|
| 229 | AC_LANG_RESTORE |
|---|
| 230 | fi |
|---|
| 231 | |
|---|
| 232 | rm -rf conftest.dSYM |
|---|
| 233 | rm -f fconftest* |
|---|
| 234 | ]) |
|---|
| 235 | |
|---|
| 236 | pac_namecheck=`echo X$pac_cv_prog_f77_name_mangle | sed 's/ /-/g'` |
|---|
| 237 | ifelse([$1],,[ |
|---|
| 238 | pac_cv_test_stdcall="" |
|---|
| 239 | case $pac_namecheck in |
|---|
| 240 | X) AC_MSG_WARN([Cannot determine Fortran naming scheme]) ;; |
|---|
| 241 | Xlower) AC_DEFINE(F77_NAME_LOWER,1,[Define if Fortran names are lowercase]) |
|---|
| 242 | F77_NAME_MANGLE="F77_NAME_LOWER" |
|---|
| 243 | ;; |
|---|
| 244 | Xlower-underscore) AC_DEFINE(F77_NAME_LOWER_USCORE,1,[Define if Fortran names are lowercase with a trailing underscore]) |
|---|
| 245 | F77_NAME_MANGLE="F77_NAME_LOWER_USCORE" |
|---|
| 246 | ;; |
|---|
| 247 | Xlower-doubleunderscore) AC_DEFINE(F77_NAME_LOWER_2USCORE,1,[Define if Fortran names containing an underscore have two trailing underscores]) |
|---|
| 248 | F77_NAME_MANGLE="F77_NAME_LOWER_2USCORE" |
|---|
| 249 | ;; |
|---|
| 250 | Xupper) AC_DEFINE(F77_NAME_UPPER,1,[Define if Fortran names are uppercase]) |
|---|
| 251 | F77_NAME_MANGLE="F77_NAME_UPPER" |
|---|
| 252 | ;; |
|---|
| 253 | Xmixed) AC_DEFINE(F77_NAME_MIXED,1,[Define if Fortran names preserve the original case]) |
|---|
| 254 | F77_NAME_MANGLE="F77_NAME_MIXED" |
|---|
| 255 | ;; |
|---|
| 256 | Xmixed-underscore) AC_DEFINE(F77_NAME_MIXED_USCORE,1,[Define if Fortran names preserve the original case and add a trailing underscore]) |
|---|
| 257 | F77_NAME_MANGLE="F77_NAME_MIXED_USCORE" |
|---|
| 258 | ;; |
|---|
| 259 | Xupper-stdcall) AC_DEFINE(F77_NAME_UPPER,1,[Define if Fortran names are uppercase]) |
|---|
| 260 | F77_NAME_MANGLE="F77_NAME_UPPER_STDCALL" |
|---|
| 261 | pac_cv_test_stdcall="__stdcall" |
|---|
| 262 | ;; |
|---|
| 263 | *) AC_MSG_WARN([Unknown Fortran naming scheme]) ;; |
|---|
| 264 | esac |
|---|
| 265 | AC_SUBST(F77_NAME_MANGLE) |
|---|
| 266 | |
|---|
| 267 | |
|---|
| 268 | if test "X$pac_cv_test_stdcall" = "X" ; then |
|---|
| 269 | F77_STDCALL="" |
|---|
| 270 | else |
|---|
| 271 | F77_STDCALL="__stdcall" |
|---|
| 272 | fi |
|---|
| 273 | |
|---|
| 274 | AC_DEFINE_UNQUOTED(STDCALL,$F77_STDCALL,[Define calling convention]) |
|---|
| 275 | ],[$1]) |
|---|
| 276 | ]) |
|---|
| 277 | |
|---|
| 278 | |
|---|
| 279 | |
|---|
| 280 | |
|---|
| 281 | |
|---|
| 282 | |
|---|
| 283 | |
|---|
| 284 | |
|---|
| 285 | |
|---|
| 286 | |
|---|
| 287 | |
|---|
| 288 | |
|---|
| 289 | |
|---|
| 290 | |
|---|
| 291 | |
|---|
| 292 | |
|---|
| 293 | |
|---|
| 294 | |
|---|
| 295 | |
|---|
| 296 | |
|---|
| 297 | |
|---|
| 298 | |
|---|
| 299 | |
|---|
| 300 | |
|---|
| 301 | |
|---|
| 302 | AC_DEFUN([PAC_PROG_F77_CHECK_SIZEOF],[ |
|---|
| 303 | changequote(<<, >>) |
|---|
| 304 | |
|---|
| 305 | |
|---|
| 306 | define(<<PAC_TYPE_NAME>>, translit(sizeof_f77_$1, [a-z *], [A-Z__])) |
|---|
| 307 | |
|---|
| 308 | define(<<PAC_CV_NAME>>, translit(pac_cv_f77_sizeof_$1, [ *], [__])) |
|---|
| 309 | changequote([, ]) |
|---|
| 310 | AC_CACHE_CHECK([for size of Fortran type $1],PAC_CV_NAME,[ |
|---|
| 311 | AC_REQUIRE([PAC_PROG_F77_NAME_MANGLE]) |
|---|
| 312 | |
|---|
| 313 | rm -rf conftest.dSYM |
|---|
| 314 | rm -f conftest* |
|---|
| 315 | cat <<EOF > conftest.f |
|---|
| 316 | subroutine isize( ) |
|---|
| 317 | $1 i(2) |
|---|
| 318 | call cisize( i(1), i(2) ) |
|---|
| 319 | end |
|---|
| 320 | EOF |
|---|
| 321 | if test "X$ac_fcompile" = "X" ; then |
|---|
| 322 | ac_fcompile='${F77-f77} -c $FFLAGS conftest.f 1>&AC_FD_CC' |
|---|
| 323 | fi |
|---|
| 324 | if AC_TRY_EVAL(ac_fcompile) && test -s conftest.o ; then |
|---|
| 325 | mv conftest.o conftestf.o |
|---|
| 326 | AC_LANG_SAVE |
|---|
| 327 | AC_LANG_C |
|---|
| 328 | save_LIBS="$LIBS" |
|---|
| 329 | |
|---|
| 330 | LIBS="conftestf.o $FLIBS $LIBS" |
|---|
| 331 | AC_TRY_RUN([ |
|---|
| 332 | |
|---|
| 333 | |
|---|
| 334 | |
|---|
| 335 | |
|---|
| 336 | |
|---|
| 337 | |
|---|
| 338 | |
|---|
| 339 | static int isize_val=0; |
|---|
| 340 | void cisize_(char *,char*); |
|---|
| 341 | void isize_(void); |
|---|
| 342 | void cisize_(char *i1p, char *i2p) |
|---|
| 343 | { |
|---|
| 344 | isize_val = (int)(i2p - i1p); |
|---|
| 345 | } |
|---|
| 346 | int main(int argc, char **argv) |
|---|
| 347 | { |
|---|
| 348 | FILE *f = fopen("conftestval", "w"); |
|---|
| 349 | if (!f) return 1; |
|---|
| 350 | isize_(); |
|---|
| 351 | fprintf(f,"%d\n", isize_val ); |
|---|
| 352 | return 0; |
|---|
| 353 | }], eval PAC_CV_NAME=`cat conftestval`,eval PAC_CV_NAME=0, |
|---|
| 354 | ifelse([$2],,,eval PAC_CV_NAME=$2)) |
|---|
| 355 | |
|---|
| 356 | |
|---|
| 357 | |
|---|
| 358 | |
|---|
| 359 | |
|---|
| 360 | |
|---|
| 361 | LIBS="$save_LIBS" |
|---|
| 362 | AC_LANG_RESTORE |
|---|
| 363 | else |
|---|
| 364 | echo "configure: failed program was:" >&AC_FD_CC |
|---|
| 365 | cat conftest.f >&AC_FD_CC |
|---|
| 366 | ifelse([$2],,eval PAC_CV_NAME=0,eval PAC_CV_NAME=$2) |
|---|
| 367 | fi |
|---|
| 368 | ]) |
|---|
| 369 | AC_DEFINE_UNQUOTED(PAC_TYPE_NAME,$PAC_CV_NAME,[Define size of PAC_TYPE_NAME]) |
|---|
| 370 | undefine([PAC_TYPE_NAME]) |
|---|
| 371 | undefine([PAC_CV_NAME]) |
|---|
| 372 | ]) |
|---|
| 373 | |
|---|
| 374 | |
|---|
| 375 | |
|---|
| 376 | |
|---|
| 377 | |
|---|
| 378 | |
|---|
| 379 | AC_DEFUN([PAC_PROG_F77_CHECK_SIZEOF_EXT],[ |
|---|
| 380 | changequote(<<,>>) |
|---|
| 381 | |
|---|
| 382 | |
|---|
| 383 | define(<<PAC_TYPE_NAME>>, translit(sizeof_f77_$1, [a-z *], [A-Z__])) |
|---|
| 384 | |
|---|
| 385 | define(<<PAC_CV_NAME>>, translit(pac_cv_f77_sizeof_$1, [ *], [__])) |
|---|
| 386 | changequote([,]) |
|---|
| 387 | AC_CACHE_CHECK([for size of Fortran type $1],PAC_CV_NAME,[ |
|---|
| 388 | AC_REQUIRE([PAC_PROG_F77_NAME_MANGLE]) |
|---|
| 389 | if test "$cross_compiling" = yes ; then |
|---|
| 390 | ifelse([$2],,[AC_MSG_WARN([No value provided for size of $1 when cross-compiling])] |
|---|
| 391 | ,eval PAC_CV_NAME=$2) |
|---|
| 392 | else |
|---|
| 393 | |
|---|
| 394 | rm -rf conftest.dSYM |
|---|
| 395 | rm -f conftest* |
|---|
| 396 | cat <<EOF > conftestc.c |
|---|
| 397 | |
|---|
| 398 | |
|---|
| 399 | |
|---|
| 400 | |
|---|
| 401 | |
|---|
| 402 | |
|---|
| 403 | |
|---|
| 404 | |
|---|
| 405 | |
|---|
| 406 | int cisize_(char *,char*); |
|---|
| 407 | int cisize_(char *i1p, char *i2p) |
|---|
| 408 | { |
|---|
| 409 | int isize_val=0; |
|---|
| 410 | FILE *f = fopen("conftestval", "w"); |
|---|
| 411 | if (!f) return 1; |
|---|
| 412 | isize_val = (int)(i2p - i1p); |
|---|
| 413 | fprintf(f,"%d\n", isize_val ); |
|---|
| 414 | fclose(f); |
|---|
| 415 | return 0; |
|---|
| 416 | } |
|---|
| 417 | EOF |
|---|
| 418 | pac_tmp_compile='$CC -c $CFLAGS $CPPFLAGS conftestc.c >&5' |
|---|
| 419 | if AC_TRY_EVAL(pac_tmp_compile) && test -s conftestc.o ; then |
|---|
| 420 | AC_LANG_SAVE |
|---|
| 421 | AC_LANG_FORTRAN77 |
|---|
| 422 | saveLIBS=$LIBS |
|---|
| 423 | LIBS="conftestc.o $LIBS" |
|---|
| 424 | |
|---|
| 425 | |
|---|
| 426 | |
|---|
| 427 | cat >conftest.f <<EOF |
|---|
| 428 | program main |
|---|
| 429 | $1 a(2) |
|---|
| 430 | integer irc |
|---|
| 431 | irc = cisize(a(1),a(2)) |
|---|
| 432 | end |
|---|
| 433 | EOF |
|---|
| 434 | rm -f conftest$ac_exeext |
|---|
| 435 | rm -f conftestval |
|---|
| 436 | if AC_TRY_EVAL(ac_link) && test -s conftest$ac_exeext ; then |
|---|
| 437 | if ./conftest$ac_exeext ; then |
|---|
| 438 | |
|---|
| 439 | : |
|---|
| 440 | else |
|---|
| 441 | |
|---|
| 442 | : |
|---|
| 443 | fi |
|---|
| 444 | else |
|---|
| 445 | |
|---|
| 446 | AC_MSG_WARN([Unable to build program to determine size of $1]) |
|---|
| 447 | fi |
|---|
| 448 | LIBS=$saveLIBS |
|---|
| 449 | AC_LANG_RESTORE |
|---|
| 450 | if test -s conftestval ; then |
|---|
| 451 | eval PAC_CV_NAME=`cat conftestval` |
|---|
| 452 | else |
|---|
| 453 | eval PAC_CV_NAME=0 |
|---|
| 454 | fi |
|---|
| 455 | |
|---|
| 456 | rm -rf conftest.dSYM |
|---|
| 457 | rm -f conftest* |
|---|
| 458 | else |
|---|
| 459 | AC_MSG_WARN([Unable to compile the C routine for finding the size of a $1]) |
|---|
| 460 | fi |
|---|
| 461 | fi |
|---|
| 462 | ]) |
|---|
| 463 | AC_DEFINE_UNQUOTED(PAC_TYPE_NAME,$PAC_CV_NAME,[Define size of PAC_TYPE_NAME]) |
|---|
| 464 | undefine([PAC_TYPE_NAME]) |
|---|
| 465 | undefine([PAC_CV_NAME]) |
|---|
| 466 | ]) |
|---|
| 467 | |
|---|
| 468 | |
|---|
| 469 | |
|---|
| 470 | |
|---|
| 471 | |
|---|
| 472 | |
|---|
| 473 | |
|---|
| 474 | |
|---|
| 475 | |
|---|
| 476 | |
|---|
| 477 | |
|---|
| 478 | |
|---|
| 479 | |
|---|
| 480 | |
|---|
| 481 | |
|---|
| 482 | AC_DEFUN([PAC_PROG_F77_EXCLAIM_COMMENTS],[ |
|---|
| 483 | AC_CACHE_CHECK([whether Fortran accepts ! for comments], |
|---|
| 484 | pac_cv_prog_f77_exclaim_comments,[ |
|---|
| 485 | AC_LANG_SAVE |
|---|
| 486 | AC_LANG_FORTRAN77 |
|---|
| 487 | AC_COMPILE_IFELSE([AC_LANG_PROGRAM(,[! This is a comment])], |
|---|
| 488 | pac_cv_prog_f77_exclaim_comments="yes", |
|---|
| 489 | pac_cv_prog_f77_exclaim_comments="no") |
|---|
| 490 | AC_LANG_RESTORE |
|---|
| 491 | ]) |
|---|
| 492 | if test "$pac_cv_prog_f77_exclaim_comments" = "yes" ; then |
|---|
| 493 | ifelse([$1],,:,$1) |
|---|
| 494 | else |
|---|
| 495 | ifelse([$2],,:,$2) |
|---|
| 496 | fi |
|---|
| 497 | ]) |
|---|
| 498 | |
|---|
| 499 | |
|---|
| 500 | |
|---|
| 501 | |
|---|
| 502 | |
|---|
| 503 | |
|---|
| 504 | |
|---|
| 505 | |
|---|
| 506 | |
|---|
| 507 | |
|---|
| 508 | |
|---|
| 509 | |
|---|
| 510 | |
|---|
| 511 | |
|---|
| 512 | |
|---|
| 513 | |
|---|
| 514 | |
|---|
| 515 | |
|---|
| 516 | |
|---|
| 517 | |
|---|
| 518 | |
|---|
| 519 | |
|---|
| 520 | AC_DEFUN([PAC_F77_CHECK_COMPILER_OPTION],[ |
|---|
| 521 | AC_MSG_CHECKING([whether Fortran 77 compiler accepts option $1]) |
|---|
| 522 | ac_result="no" |
|---|
| 523 | save_FFLAGS="$FFLAGS" |
|---|
| 524 | FFLAGS="$1 $FFLAGS" |
|---|
| 525 | rm -f conftest.out |
|---|
| 526 | cat >conftest2.f <<EOF |
|---|
| 527 | subroutine try() |
|---|
| 528 | end |
|---|
| 529 | EOF |
|---|
| 530 | cat >conftest.f <<EOF |
|---|
| 531 | program main |
|---|
| 532 | end |
|---|
| 533 | EOF |
|---|
| 534 | |
|---|
| 535 | |
|---|
| 536 | |
|---|
| 537 | ac_fscompilelink='${F77-f77} $save_FFLAGS -o conftest conftest.f $LDFLAGS >conftest.bas 2>&1' |
|---|
| 538 | ac_fscompilelink2='${F77-f77} $FFLAGS -o conftest conftest.f $LDFLAGS >conftest.out 2>&1' |
|---|
| 539 | if AC_TRY_EVAL(ac_fscompilelink) && test -x conftest ; then |
|---|
| 540 | if AC_TRY_EVAL(ac_fscompilelink2) && test -x conftest ; then |
|---|
| 541 | if diff -b conftest.out conftest.bas >/dev/null 2>&1 ; then |
|---|
| 542 | AC_MSG_RESULT(yes) |
|---|
| 543 | AC_MSG_CHECKING([whether routines compiled with $1 can be linked with ones compiled without $1]) |
|---|
| 544 | rm -f conftest2.out |
|---|
| 545 | rm -f conftest.bas |
|---|
| 546 | ac_fscompile3='${F77-f77} -c $save_FFLAGS conftest2.f >conftest2.out 2>&1' |
|---|
| 547 | ac_fscompilelink4='${F77-f77} $FFLAGS -o conftest conftest2.o conftest.f $LDFLAGS >conftest.bas 2>&1' |
|---|
| 548 | if AC_TRY_EVAL(ac_fscompile3) && test -s conftest2.o ; then |
|---|
| 549 | if AC_TRY_EVAL(ac_fscompilelink4) && test -x conftest ; then |
|---|
| 550 | if diff -b conftest.out conftest.bas >/dev/null 2>&1 ; then |
|---|
| 551 | ac_result="yes" |
|---|
| 552 | else |
|---|
| 553 | echo "configure: Compiler output differed in two cases" >&AC_FD_CC |
|---|
| 554 | diff -b conftest.out conftest.bas >&AC_FD_CC |
|---|
| 555 | fi |
|---|
| 556 | else |
|---|
| 557 | echo "configure: failed program was:" >&AC_FD_CC |
|---|
| 558 | cat conftest.f >&AC_FD_CC |
|---|
| 559 | fi |
|---|
| 560 | else |
|---|
| 561 | echo "configure: failed program was:" >&AC_FD_CC |
|---|
| 562 | cat conftest2.f >&AC_FD_CC |
|---|
| 563 | fi |
|---|
| 564 | else |
|---|
| 565 | # diff |
|---|
| 566 | echo "configure: Compiler output differed in two cases" >&AC_FD_CC |
|---|
| 567 | diff -b conftest.out conftest.bas >&AC_FD_CC |
|---|
| 568 | fi |
|---|
| 569 | else |
|---|
| 570 | # try_eval(fscompilelink2) |
|---|
| 571 | echo "configure: failed program was:" >&AC_FD_CC |
|---|
| 572 | cat conftest.f >&AC_FD_CC |
|---|
| 573 | fi |
|---|
| 574 | if test "$ac_result" != "yes" -a -s conftest.out ; then |
|---|
| 575 | cat conftest.out >&AC_FD_CC |
|---|
| 576 | fi |
|---|
| 577 | else |
|---|
| 578 | # Could not compile without the option! |
|---|
| 579 | echo "configure: Could not compile program" >&AC_FD_CC |
|---|
| 580 | cat conftest.f >&AC_FD_CC |
|---|
| 581 | cat conftest.bas >&AC_FD_CC |
|---|
| 582 | fi |
|---|
| 583 | # Restore FFLAGS before 2nd/3rd argument commands are executed, |
|---|
| 584 | # as 2nd/3rd argument command could be modifying FFLAGS. |
|---|
| 585 | FFLAGS="$save_FFLAGS" |
|---|
| 586 | if test "$ac_result" = "yes" ; then |
|---|
| 587 | AC_MSG_RESULT(yes) |
|---|
| 588 | ifelse($2,,FOPTIONS="$FOPTIONS $1",$2) |
|---|
| 589 | else |
|---|
| 590 | AC_MSG_RESULT(no) |
|---|
| 591 | $3 |
|---|
| 592 | fi |
|---|
| 593 | # This is needed for Mac OSX 10.5 |
|---|
| 594 | rm -rf conftest.dSYM |
|---|
| 595 | rm -f conftest* |
|---|
| 596 | ]) |
|---|
| 597 | dnl |
|---|
| 598 | dnl/*D |
|---|
| 599 | dnl PAC_PROG_F77_CMDARGS - Determine how to access the command line from |
|---|
| 600 | dnl Fortran 77 |
|---|
| 601 | dnl |
|---|
| 602 | dnl Output Effects: |
|---|
| 603 | dnl The following variables are set: |
|---|
| 604 | dnl.vb |
|---|
| 605 | dnl F77_GETARG - Statement to get an argument i into string s |
|---|
| 606 | dnl F77_IARGC - Routine to return the number of arguments |
|---|
| 607 | dnl FXX_MODULE - Module command when using Fortran 90 compiler |
|---|
| 608 | dnl F77_GETARGDECL - Declaration of routine used for F77_GETARG |
|---|
| 609 | dnl F77_GETARG_FFLAGS - Flags needed when compiling/linking |
|---|
| 610 | dnl F77_GETARG_LDFLAGS - Flags needed when linking |
|---|
| 611 | dnl.ve |
|---|
| 612 | dnl If 'F77_GETARG' has a value, then that value and the values for these |
|---|
| 613 | |
|---|
| 614 | |
|---|
| 615 | |
|---|
| 616 | |
|---|
| 617 | |
|---|
| 618 | |
|---|
| 619 | |
|---|
| 620 | |
|---|
| 621 | |
|---|
| 622 | |
|---|
| 623 | |
|---|
| 624 | |
|---|
| 625 | |
|---|
| 626 | |
|---|
| 627 | |
|---|
| 628 | |
|---|
| 629 | |
|---|
| 630 | |
|---|
| 631 | |
|---|
| 632 | |
|---|
| 633 | |
|---|
| 634 | |
|---|
| 635 | |
|---|
| 636 | |
|---|
| 637 | |
|---|
| 638 | |
|---|
| 639 | |
|---|
| 640 | |
|---|
| 641 | |
|---|
| 642 | |
|---|
| 643 | AC_DEFUN([PAC_PROG_F77_CMDARGS],[ |
|---|
| 644 | found_cached="yes" |
|---|
| 645 | AC_MSG_CHECKING([for routines to access the command line from Fortran 77]) |
|---|
| 646 | AC_CACHE_VAL(pac_cv_prog_f77_cmdarg, |
|---|
| 647 | [ |
|---|
| 648 | AC_MSG_RESULT([searching...]) |
|---|
| 649 | found_cached="no" |
|---|
| 650 | |
|---|
| 651 | fxx_module="${FXX_MODULE:-}" |
|---|
| 652 | f77_getargdecl="${F77_GETARGDECL:-external getarg}" |
|---|
| 653 | f77_getarg="${F77_GETARG:-call GETARG(i,s)}" |
|---|
| 654 | f77_iargc="${F77_IARGC:-IARGC()}" |
|---|
| 655 | |
|---|
| 656 | |
|---|
| 657 | |
|---|
| 658 | |
|---|
| 659 | |
|---|
| 660 | cat > conftest.f <<EOF |
|---|
| 661 | program main |
|---|
| 662 | $fxx_module |
|---|
| 663 | integer i, j |
|---|
| 664 | character*20 s |
|---|
| 665 | $f77_getargdecl |
|---|
| 666 | i = 0 |
|---|
| 667 | $f77_getarg |
|---|
| 668 | i=$f77_iargc |
|---|
| 669 | if (i .gt. 1) then |
|---|
| 670 | j = i - $f77_iargc |
|---|
| 671 | j = 1.0 / j |
|---|
| 672 | endif |
|---|
| 673 | end |
|---|
| 674 | EOF |
|---|
| 675 | found_answer="no" |
|---|
| 676 | if test -z "$ac_fcompilelink" ; then |
|---|
| 677 | ac_fcompilelink="${F77-f77} -o conftest $FFLAGS $flags conftest.f $LDFLAGS $LIBS 1>&AC_FD_CC" |
|---|
| 678 | fi |
|---|
| 679 | AC_MSG_CHECKING([whether ${F77-f77} $flags $libs works with GETARG and IARGC]) |
|---|
| 680 | if AC_TRY_EVAL(ac_fcompilelink) && test -x conftest ; then |
|---|
| 681 | |
|---|
| 682 | if test "$ac_cv_prog_f77_cross" != "yes" ; then |
|---|
| 683 | if ./conftest >/dev/null 2>&1 ; then |
|---|
| 684 | found_answer="yes" |
|---|
| 685 | FXX_MODULE="$fxx_module" |
|---|
| 686 | F77_GETARGDECL="$f77_getargdecl" |
|---|
| 687 | F77_GETARG="$f77_getarg" |
|---|
| 688 | F77_IARGC="$f77_iargc" |
|---|
| 689 | AC_MSG_RESULT(yes) |
|---|
| 690 | fi |
|---|
| 691 | fi |
|---|
| 692 | fi |
|---|
| 693 | if test $found_answer = "no" ; then |
|---|
| 694 | AC_MSG_RESULT(no) |
|---|
| 695 | |
|---|
| 696 | |
|---|
| 697 | |
|---|
| 698 | |
|---|
| 699 | |
|---|
| 700 | |
|---|
| 701 | |
|---|
| 702 | trial_LIBS="0 -lU77 -lPEPCF90" |
|---|
| 703 | if test "$NOG2C" != "1" ; then |
|---|
| 704 | trial_LIBS="$trial_LIBS -lg2c" |
|---|
| 705 | fi |
|---|
| 706 | |
|---|
| 707 | save_IFS="$IFS" |
|---|
| 708 | |
|---|
| 709 | |
|---|
| 710 | IFS=" "" |
|---|
| 711 | " |
|---|
| 712 | save_trial_LIBS="$trial_LIBS" |
|---|
| 713 | trial_LIBS="" |
|---|
| 714 | cat > conftest.f <<EOF |
|---|
| 715 | program main |
|---|
| 716 | end |
|---|
| 717 | EOF |
|---|
| 718 | ac_fcompilelink_test='${F77-f77} -o conftest $FFLAGS conftest.f $LDFLAGS $libs $LIBS 1>&AC_FD_CC' |
|---|
| 719 | for libs in $save_trial_LIBS ; do |
|---|
| 720 | if test "$libs" = "0" ; then |
|---|
| 721 | lib_ok="yes" |
|---|
| 722 | else |
|---|
| 723 | AC_MSG_CHECKING([whether Fortran 77 links with $libs]) |
|---|
| 724 | if AC_TRY_EVAL(ac_fcompilelink_test) && test -x conftest ; then |
|---|
| 725 | AC_MSG_RESULT([yes]) |
|---|
| 726 | lib_ok="yes" |
|---|
| 727 | else |
|---|
| 728 | AC_MSG_RESULT([no]) |
|---|
| 729 | lib_ok="no" |
|---|
| 730 | fi |
|---|
| 731 | fi |
|---|
| 732 | if test "$lib_ok" = "yes" ; then |
|---|
| 733 | trial_LIBS="$trial_LIBS |
|---|
| 734 | $libs" |
|---|
| 735 | fi |
|---|
| 736 | done |
|---|
| 737 | |
|---|
| 738 | |
|---|
| 739 | |
|---|
| 740 | |
|---|
| 741 | |
|---|
| 742 | |
|---|
| 743 | |
|---|
| 744 | |
|---|
| 745 | |
|---|
| 746 | |
|---|
| 747 | |
|---|
| 748 | |
|---|
| 749 | |
|---|
| 750 | |
|---|
| 751 | |
|---|
| 752 | |
|---|
| 753 | |
|---|
| 754 | |
|---|
| 755 | |
|---|
| 756 | |
|---|
| 757 | |
|---|
| 758 | |
|---|
| 759 | using_intel_efc="no" |
|---|
| 760 | pac_test_msg=`$F77 -V 2>&1 | grep 'Intel(R) Fortran Itanium'` |
|---|
| 761 | if test "$pac_test_msg" != "" ; then |
|---|
| 762 | using_intel_efc="yes" |
|---|
| 763 | fi |
|---|
| 764 | if test "$using_intel_efc" = "yes" ; then |
|---|
| 765 | trial_FLAGS="000" |
|---|
| 766 | else |
|---|
| 767 | trial_FLAGS="000 |
|---|
| 768 | -N109 |
|---|
| 769 | -f |
|---|
| 770 | -YEXT_NAMES=UCS |
|---|
| 771 | -YEXT_NAMES=LCS |
|---|
| 772 | -YCFRL=1 |
|---|
| 773 | +U77" |
|---|
| 774 | fi |
|---|
| 775 | |
|---|
| 776 | |
|---|
| 777 | IFS=" "" |
|---|
| 778 | " |
|---|
| 779 | save_trial_FLAGS="$trial_FLAGS" |
|---|
| 780 | trial_FLAGS="" |
|---|
| 781 | for flag in $save_trial_FLAGS ; do |
|---|
| 782 | if test "$flag" = " " -o "$flag" = "000" ; then |
|---|
| 783 | opt_ok="yes" |
|---|
| 784 | else |
|---|
| 785 | PAC_F77_CHECK_COMPILER_OPTION($flag,opt_ok=yes,opt_ok=no) |
|---|
| 786 | fi |
|---|
| 787 | if test "$opt_ok" = "yes" ; then |
|---|
| 788 | if test "$flag" = " " -o "$flag" = "000" ; then |
|---|
| 789 | fflag="" |
|---|
| 790 | else |
|---|
| 791 | fflag="$flag" |
|---|
| 792 | fi |
|---|
| 793 | |
|---|
| 794 | cat > conftest.f <<EOF |
|---|
| 795 | program main |
|---|
| 796 | call aB() |
|---|
| 797 | end |
|---|
| 798 | subroutine Ab() |
|---|
| 799 | end |
|---|
| 800 | EOF |
|---|
| 801 | if test -n "$fflag" ; then flagval="with $fflag" ; else flagval="" ; fi |
|---|
| 802 | AC_MSG_CHECKING([whether Fortran 77 routine names are case-insensitive $flagval]) |
|---|
| 803 | |
|---|
| 804 | |
|---|
| 805 | ac_fcompilelink_test="${F77-f77} -o conftest $fflag $FFLAGS conftest.f $LDFLAGS $LIBS 1>&AC_FD_CC" |
|---|
| 806 | if AC_TRY_EVAL(ac_fcompilelink_test) && test -x conftest ; then |
|---|
| 807 | AC_MSG_RESULT(yes) |
|---|
| 808 | else |
|---|
| 809 | AC_MSG_RESULT(no) |
|---|
| 810 | opt_ok="no" |
|---|
| 811 | fi |
|---|
| 812 | fi |
|---|
| 813 | if test "$opt_ok" = "yes" ; then |
|---|
| 814 | trial_FLAGS="$trial_FLAGS |
|---|
| 815 | $flag" |
|---|
| 816 | fi |
|---|
| 817 | done |
|---|
| 818 | IFS="$save_IFS" |
|---|
| 819 | |
|---|
| 820 | |
|---|
| 821 | |
|---|
| 822 | |
|---|
| 823 | |
|---|
| 824 | trial=0 |
|---|
| 825 | while test -z "$pac_cv_prog_f77_cmdarg" ; do |
|---|
| 826 | case $trial in |
|---|
| 827 | 0) |
|---|
| 828 | if test -z "$F77_GETARG" -o -z "$F77_IARGC" ; then |
|---|
| 829 | trial=`expr $trial + 1` |
|---|
| 830 | continue |
|---|
| 831 | fi |
|---|
| 832 | MSG="Using environment values of F77_GETARG etc." |
|---|
| 833 | ;; |
|---|
| 834 | 1) |
|---|
| 835 | FXX_MODULE="" |
|---|
| 836 | F77_GETARGDECL="external GETARG" |
|---|
| 837 | F77_GETARG="call GETARG(i,s)" |
|---|
| 838 | F77_IARGC="IARGC()" |
|---|
| 839 | MSG="GETARG and IARGC" |
|---|
| 840 | ;; |
|---|
| 841 | 2) |
|---|
| 842 | FXX_MODULE="" |
|---|
| 843 | F77_GETARGDECL="external getarg" |
|---|
| 844 | F77_GETARG="call getarg(i,s)" |
|---|
| 845 | F77_IARGC="iargc()" |
|---|
| 846 | MSG="getarg and iargc" |
|---|
| 847 | ;; |
|---|
| 848 | 3) |
|---|
| 849 | FXX_MODULE="" |
|---|
| 850 | F77_GETARGDECL="external pxfgetarg" |
|---|
| 851 | F77_GETARG="call pxfgetarg(i,s,l,ier)" |
|---|
| 852 | F77_IARGC="ipxfargc()" |
|---|
| 853 | MSG="pxfgetarg and ipxfargc" |
|---|
| 854 | ;; |
|---|
| 855 | 4) |
|---|
| 856 | FXX_MODULE=" use f90_unix_env" |
|---|
| 857 | F77_GETARGDECL="" |
|---|
| 858 | F77_GETARG="call getarg(i,s)" |
|---|
| 859 | F77_IARGC="iargc()" |
|---|
| 860 | MSG="f90_unix_env module" |
|---|
| 861 | ;; |
|---|
| 862 | 5) |
|---|
| 863 | FXX_MODULE=" use f90_unix" |
|---|
| 864 | F77_GETARGDECL="" |
|---|
| 865 | F77_GETARG="call getarg(i,s)" |
|---|
| 866 | F77_IARGC="iargc()" |
|---|
| 867 | MSG="f90_unix module" |
|---|
| 868 | ;; |
|---|
| 869 | 6) |
|---|
| 870 | if test -s f77argdef ; then |
|---|
| 871 | . ./f77argdef |
|---|
| 872 | MSG="Using definitions in the file f77argdef" |
|---|
| 873 | else |
|---|
| 874 | trial=`expr $trial + 1` |
|---|
| 875 | continue |
|---|
| 876 | fi |
|---|
| 877 | ;; |
|---|
| 878 | 7) |
|---|
| 879 | FXX_MODULE="" |
|---|
| 880 | F77_GETARGDECL="intrinsic GETARG" |
|---|
| 881 | F77_GETARG="call GETARG(i,s)" |
|---|
| 882 | F77_IARGC="IARGC()" |
|---|
| 883 | MSG="intrinsic GETARG and IARGC" |
|---|
| 884 | ;; |
|---|
| 885 | *) |
|---|
| 886 | FXX_MODULE="" |
|---|
| 887 | F77_GETARGDECL="" |
|---|
| 888 | F77_GETARG="" |
|---|
| 889 | F77_IARGC="" |
|---|
| 890 | break |
|---|
| 891 | ;; |
|---|
| 892 | esac |
|---|
| 893 | |
|---|
| 894 | |
|---|
| 895 | |
|---|
| 896 | cat > conftest.f <<EOF |
|---|
| 897 | program main |
|---|
| 898 | $FXX_MODULE |
|---|
| 899 | integer i, j |
|---|
| 900 | character*20 s |
|---|
| 901 | $F77_GETARGDECL |
|---|
| 902 | i = 0 |
|---|
| 903 | $F77_GETARG |
|---|
| 904 | i=$F77_IARGC |
|---|
| 905 | if (i .gt. 1) then |
|---|
| 906 | j = i - $F77_IARGC |
|---|
| 907 | j = 1.0 / j |
|---|
| 908 | endif |
|---|
| 909 | end |
|---|
| 910 | EOF |
|---|
| 911 | |
|---|
| 912 | |
|---|
| 913 | |
|---|
| 914 | save_IFS="$IFS" |
|---|
| 915 | IFS=" "" |
|---|
| 916 | " |
|---|
| 917 | for libs in $trial_LIBS ; do |
|---|
| 918 | if test -n "$pac_cv_prog_f77_cmdarg" ; then break ; fi |
|---|
| 919 | if test "$libs" = " " -o "$libs" = "0" ; then libs="" ; fi |
|---|
| 920 | for flags in $trial_FLAGS ; do |
|---|
| 921 | if test "$flags" = " " -o "$flags" = "000"; then flags="" ; fi |
|---|
| 922 | AC_MSG_CHECKING([whether ${F77-f77} $flags $libs works with $MSG]) |
|---|
| 923 | IFS="$save_IFS" |
|---|
| 924 | |
|---|
| 925 | ac_fcompilelink_test="${F77-f77} -o conftest $FFLAGS $flags conftest.f $LDFLAGS $libs $LIBS 1>&AC_FD_CC" |
|---|
| 926 | found_answer="no" |
|---|
| 927 | if AC_TRY_EVAL(ac_fcompilelink_test) && test -x conftest ; then |
|---|
| 928 | if test "$ac_cv_prog_f77_cross" != "yes" ; then |
|---|
| 929 | if ./conftest >/dev/null 2>&1 ; then |
|---|
| 930 | found_answer="yes" |
|---|
| 931 | fi |
|---|
| 932 | else |
|---|
| 933 | found_answer="yes" |
|---|
| 934 | fi |
|---|
| 935 | fi |
|---|
| 936 | IFS=" "" |
|---|
| 937 | " |
|---|
| 938 | if test "$found_answer" = "yes" ; then |
|---|
| 939 | AC_MSG_RESULT([yes]) |
|---|
| 940 | pac_cv_prog_f77_cmdarg="$MSG" |
|---|
| 941 | pac_cv_prog_f77_cmdarg_fflags="$flags" |
|---|
| 942 | pac_cv_prog_f77_cmdarg_ldflags="$libs" |
|---|
| 943 | break |
|---|
| 944 | else |
|---|
| 945 | AC_MSG_RESULT([no]) |
|---|
| 946 | echo "configure: failed program was:" >&AC_FD_CC |
|---|
| 947 | cat conftest.f >&AC_FD_CC |
|---|
| 948 | fi |
|---|
| 949 | done |
|---|
| 950 | done |
|---|
| 951 | IFS="$save_IFS" |
|---|
| 952 | rm -f conftest.* |
|---|
| 953 | trial=`expr $trial + 1` |
|---|
| 954 | done |
|---|
| 955 | fi |
|---|
| 956 | pac_cv_F77_GETARGDECL="$F77_GETARGDECL" |
|---|
| 957 | pac_cv_F77_IARGC="$F77_IARGC" |
|---|
| 958 | pac_cv_F77_GETARG="$F77_GETARG" |
|---|
| 959 | pac_cv_FXX_MODULE="$FXX_MODULE" |
|---|
| 960 | ]) |
|---|
| 961 | if test "$found_cached" = "yes" ; then |
|---|
| 962 | AC_MSG_RESULT([$pac_cv_prog_f77_cmdarg]) |
|---|
| 963 | elif test -z "$pac_cv_F77_IARGC" ; then |
|---|
| 964 | AC_MSG_WARN([Could not find a way to access the command line from Fortran 77]) |
|---|
| 965 | fi |
|---|
| 966 | |
|---|
| 967 | F77_GETARGDECL="$pac_cv_F77_GETARGDECL" |
|---|
| 968 | F77_IARGC="$pac_cv_F77_IARGC" |
|---|
| 969 | F77_GETARG="$pac_cv_F77_GETARG" |
|---|
| 970 | FXX_MODULE="$pac_cv_FXX_MODULE" |
|---|
| 971 | F77_GETARG_FFLAGS="$pac_cv_prog_f77_cmdarg_fflags" |
|---|
| 972 | F77_GETARG_LDFLAGS="$pac_cv_prog_f77_cmdarg_ldflags" |
|---|
| 973 | AC_SUBST(F77_GETARGDECL) |
|---|
| 974 | AC_SUBST(F77_IARGC) |
|---|
| 975 | AC_SUBST(F77_GETARG) |
|---|
| 976 | AC_SUBST(FXX_MODULE) |
|---|
| 977 | AC_SUBST(F77_GETARG_FFLAGS) |
|---|
| 978 | AC_SUBST(F77_GETARG_LDFLAGS) |
|---|
| 979 | ]) |
|---|
| 980 | |
|---|
| 981 | |
|---|
| 982 | |
|---|
| 983 | |
|---|
| 984 | |
|---|
| 985 | |
|---|
| 986 | |
|---|
| 987 | |
|---|
| 988 | |
|---|
| 989 | |
|---|
| 990 | |
|---|
| 991 | |
|---|
| 992 | |
|---|
| 993 | |
|---|
| 994 | |
|---|
| 995 | |
|---|
| 996 | AC_DEFUN([PAC_PROG_F77_LIBRARY_DIR_FLAG],[ |
|---|
| 997 | if test "X$F77_LIBDIR_LEADER" = "X" ; then |
|---|
| 998 | AC_CACHE_CHECK([for Fortran 77 flag for library directories], |
|---|
| 999 | pac_cv_prog_f77_library_dir_flag, |
|---|
| 1000 | [ |
|---|
| 1001 | |
|---|
| 1002 | rm -f conftest.* conftest1.* |
|---|
| 1003 | cat > conftest.f <<EOF |
|---|
| 1004 | program main |
|---|
| 1005 | call f1conf |
|---|
| 1006 | end |
|---|
| 1007 | EOF |
|---|
| 1008 | cat > conftest1.f <<EOF |
|---|
| 1009 | subroutine f1conf |
|---|
| 1010 | end |
|---|
| 1011 | EOF |
|---|
| 1012 | |
|---|
| 1013 | ac_fcompileforlib='${F77-f77} -c $FFLAGS conftest1.f 1>&AC_FD_CC' |
|---|
| 1014 | if AC_TRY_EVAL(ac_fcompileforlib) && test -s conftest1.o ; then |
|---|
| 1015 | if test ! -d conftest ; then mkdir conftest2 ; fi |
|---|
| 1016 | |
|---|
| 1017 | |
|---|
| 1018 | |
|---|
| 1019 | |
|---|
| 1020 | AC_TRY_COMMAND(${AR-"ar"} cr conftest2/libconftest.a conftest1.o) |
|---|
| 1021 | AC_TRY_COMMAND(${RANLIB-ranlib} conftest2/libconftest.a) |
|---|
| 1022 | ac_fcompileldtest='${F77-f77} -o conftest $FFLAGS ${ldir}conftest2 conftest.f -lconftest $LDFLAGS 1>&AC_FD_CC' |
|---|
| 1023 | for ldir in "-L" "-Wl,-L," ; do |
|---|
| 1024 | if AC_TRY_EVAL(ac_fcompileldtest) && test -s conftest ; then |
|---|
| 1025 | pac_cv_prog_f77_library_dir_flag="$ldir" |
|---|
| 1026 | break |
|---|
| 1027 | fi |
|---|
| 1028 | done |
|---|
| 1029 | rm -rf ./conftest2 |
|---|
| 1030 | else |
|---|
| 1031 | echo "configure: failed program was:" >&AC_FD_CC |
|---|
| 1032 | cat conftest1.f >&AC_FD_CC |
|---|
| 1033 | fi |
|---|
| 1034 | |
|---|
| 1035 | rm -rf conftest.dSYM |
|---|
| 1036 | rm -f conftest* |
|---|
| 1037 | ]) |
|---|
| 1038 | AC_SUBST(F77_LIBDIR_LEADER) |
|---|
| 1039 | if test "X$pac_cv_prog_f77_library_dir_flag" != "X" ; then |
|---|
| 1040 | F77_LIBDIR_LEADER="$pac_cv_prog_f77_library_dir_flag" |
|---|
| 1041 | fi |
|---|
| 1042 | fi |
|---|
| 1043 | ]) |
|---|
| 1044 | |
|---|
| 1045 | |
|---|
| 1046 | |
|---|
| 1047 | |
|---|
| 1048 | |
|---|
| 1049 | |
|---|
| 1050 | |
|---|
| 1051 | |
|---|
| 1052 | |
|---|
| 1053 | |
|---|
| 1054 | |
|---|
| 1055 | |
|---|
| 1056 | |
|---|
| 1057 | |
|---|
| 1058 | |
|---|
| 1059 | |
|---|
| 1060 | AC_DEFUN([PAC_PROG_F77_HAS_INCDIR],[ |
|---|
| 1061 | checkdir=$1 |
|---|
| 1062 | AC_CACHE_CHECK([for include directory flag for Fortran], |
|---|
| 1063 | pac_cv_prog_f77_has_incdir,[ |
|---|
| 1064 | if test ! -d $checkdir ; then mkdir $checkdir ; fi |
|---|
| 1065 | cat >$checkdir/conftestf.h <<EOF |
|---|
| 1066 | call sub() |
|---|
| 1067 | EOF |
|---|
| 1068 | cat >conftest.f <<EOF |
|---|
| 1069 | program main |
|---|
| 1070 | include 'conftestf.h' |
|---|
| 1071 | end |
|---|
| 1072 | EOF |
|---|
| 1073 | |
|---|
| 1074 | ac_fcompiletest='${F77-f77} -c $FFLAGS ${idir}$checkdir conftest.f 1>&AC_FD_CC' |
|---|
| 1075 | pac_cv_prog_f77_has_incdir="none" |
|---|
| 1076 | |
|---|
| 1077 | for idir in "-I" "-Wf,-I" ; do |
|---|
| 1078 | if AC_TRY_EVAL(ac_fcompiletest) && test -s conftest.o ; then |
|---|
| 1079 | pac_cv_prog_f77_has_incdir="$idir" |
|---|
| 1080 | break |
|---|
| 1081 | fi |
|---|
| 1082 | done |
|---|
| 1083 | |
|---|
| 1084 | rm -rf conftest.dSYM |
|---|
| 1085 | rm -f conftest* |
|---|
| 1086 | rm -f $checkdir/conftestf.h |
|---|
| 1087 | ]) |
|---|
| 1088 | AC_SUBST(F77_INCDIR) |
|---|
| 1089 | if test "X$pac_cv_prog_f77_has_incdir" != "Xnone" ; then |
|---|
| 1090 | F77_INCDIR="$pac_cv_prog_f77_has_incdir" |
|---|
| 1091 | fi |
|---|
| 1092 | ]) |
|---|
| 1093 | |
|---|
| 1094 | |
|---|
| 1095 | |
|---|
| 1096 | |
|---|
| 1097 | |
|---|
| 1098 | |
|---|
| 1099 | |
|---|
| 1100 | |
|---|
| 1101 | |
|---|
| 1102 | |
|---|
| 1103 | AC_DEFUN([PAC_PROG_F77_ALLOWS_UNUSED_EXTERNALS],[ |
|---|
| 1104 | AC_CACHE_CHECK([whether Fortran allows unused externals], |
|---|
| 1105 | pac_cv_prog_f77_allows_unused_externals,[ |
|---|
| 1106 | AC_LANG_SAVE |
|---|
| 1107 | AC_LANG_FORTRAN77 |
|---|
| 1108 | |
|---|
| 1109 | |
|---|
| 1110 | cat > conftest.$ac_ext <<EOF |
|---|
| 1111 | program main |
|---|
| 1112 | external bar |
|---|
| 1113 | end |
|---|
| 1114 | EOF |
|---|
| 1115 | if AC_TRY_EVAL(ac_link) && test -s conftest${ac_exeext}; then |
|---|
| 1116 | |
|---|
| 1117 | rm -rf conftest.dSYM |
|---|
| 1118 | rm -rf conftest* |
|---|
| 1119 | pac_cv_prog_f77_allows_unused_externals="yes" |
|---|
| 1120 | else |
|---|
| 1121 | echo "configure: failed program was:" >&AC_FD_CC |
|---|
| 1122 | cat conftest.$ac_ext >&AC_FD_CC |
|---|
| 1123 | |
|---|
| 1124 | rm -rf conftest.dSYM |
|---|
| 1125 | rm -rf conftest* |
|---|
| 1126 | pac_cv_prog_f77_allows_unused_externals="no" |
|---|
| 1127 | $4 |
|---|
| 1128 | fi |
|---|
| 1129 | |
|---|
| 1130 | rm -rf conftest.dSYM |
|---|
| 1131 | rm -f conftest* |
|---|
| 1132 | |
|---|
| 1133 | AC_LANG_RESTORE |
|---|
| 1134 | ]) |
|---|
| 1135 | if test "X$pac_cv_prog_f77_allows_unused_externals" = "Xyes" ; then |
|---|
| 1136 | ifelse([$1],,:,[$1]) |
|---|
| 1137 | else |
|---|
| 1138 | ifelse([$2],,:,[$2]) |
|---|
| 1139 | fi |
|---|
| 1140 | ]) |
|---|
| 1141 | |
|---|
| 1142 | |
|---|
| 1143 | |
|---|
| 1144 | |
|---|
| 1145 | |
|---|
| 1146 | |
|---|
| 1147 | AC_DEFUN([PAC_PROG_F77_HAS_POINTER],[ |
|---|
| 1148 | AC_CACHE_CHECK([whether Fortran has pointer declaration], |
|---|
| 1149 | pac_cv_prog_f77_has_pointer,[ |
|---|
| 1150 | AC_LANG_SAVE |
|---|
| 1151 | AC_LANG_FORTRAN77 |
|---|
| 1152 | AC_COMPILE_IFELSE([AC_LANG_PROGRAM(,[ |
|---|
| 1153 | integer M |
|---|
| 1154 | pointer (MPTR,M) |
|---|
| 1155 | data MPTR/0/ |
|---|
| 1156 | ])], |
|---|
| 1157 | pac_cv_prog_f77_has_pointer="yes", |
|---|
| 1158 | pac_cv_prog_f77_has_pointer="no") |
|---|
| 1159 | AC_LANG_RESTORE |
|---|
| 1160 | ]) |
|---|
| 1161 | if test "$pac_cv_prog_f77_has_pointer" = "yes" ; then |
|---|
| 1162 | ifelse([$1],,:,[$1]) |
|---|
| 1163 | else |
|---|
| 1164 | ifelse([$2],,:,[$2]) |
|---|
| 1165 | fi |
|---|
| 1166 | ]) |
|---|
| 1167 | dnl |
|---|
| 1168 | dnl pac_prog_f77_run_proc_from_c( c main program, fortran routine, |
|---|
| 1169 | dnl action-if-works, action-if-fails, |
|---|
| 1170 | dnl cross-action ) |
|---|
| 1171 | dnl Fortran routine MUST be named ftest unless you include code |
|---|
| 1172 | dnl to select the appropriate Fortran name. |
|---|
| 1173 | dnl |
|---|
| 1174 | AC_DEFUN([PAC_PROG_F77_RUN_PROC_FROM_C],[ |
|---|
| 1175 | # This is needed for Mac OSX 10.5 |
|---|
| 1176 | rm -rf conftest.dSYM |
|---|
| 1177 | rm -f conftest* |
|---|
| 1178 | cat <<EOF > conftest.f |
|---|
| 1179 | $2 |
|---|
| 1180 | EOF |
|---|
| 1181 | dnl |
|---|
| 1182 | if test "X$ac_fcompile" = "X" ; then |
|---|
| 1183 | ac_fcompile='${F77-f77} -c $FFLAGS conftest.f 1>&AC_FD_CC' |
|---|
| 1184 | fi |
|---|
| 1185 | if AC_TRY_EVAL(ac_fcompile) && test -s conftest.o ; then |
|---|
| 1186 | mv conftest.o conftestf.o |
|---|
| 1187 | AC_LANG_SAVE |
|---|
| 1188 | AC_LANG_C |
|---|
| 1189 | save_LIBS="$LIBS" |
|---|
| 1190 | LIBS="conftestf.o $FLIBS $LIBS" |
|---|
| 1191 | AC_TRY_RUN([ |
|---|
| 1192 | |
|---|
| 1193 | |
|---|
| 1194 | |
|---|
| 1195 | |
|---|
| 1196 | |
|---|
| 1197 | $1 |
|---|
| 1198 | ], [$3], [$4], [$5] ) |
|---|
| 1199 | LIBS="$save_LIBS" |
|---|
| 1200 | AC_LANG_RESTORE |
|---|
| 1201 | else |
|---|
| 1202 | echo "configure: failed program was:" >&AC_FD_CC |
|---|
| 1203 | cat conftest.f >&AC_FD_CC |
|---|
| 1204 | fi |
|---|
| 1205 | |
|---|
| 1206 | rm -rf conftest.dSYM |
|---|
| 1207 | rm -f conftest* |
|---|
| 1208 | ]) |
|---|
| 1209 | |
|---|
| 1210 | |
|---|
| 1211 | |
|---|
| 1212 | |
|---|
| 1213 | |
|---|
| 1214 | |
|---|
| 1215 | |
|---|
| 1216 | |
|---|
| 1217 | |
|---|
| 1218 | |
|---|
| 1219 | |
|---|
| 1220 | |
|---|
| 1221 | |
|---|
| 1222 | |
|---|
| 1223 | |
|---|
| 1224 | |
|---|
| 1225 | AC_DEFUN([PAC_PROG_F77_IN_C_LIBS],[ |
|---|
| 1226 | AC_MSG_CHECKING([for which Fortran libraries are needed to link C with Fortran]) |
|---|
| 1227 | F77_IN_C_LIBS="$FLIBS" |
|---|
| 1228 | |
|---|
| 1229 | rm -rf conftest.dSYM |
|---|
| 1230 | rm -f conftest* |
|---|
| 1231 | cat <<EOF > conftest.f |
|---|
| 1232 | subroutine ftest |
|---|
| 1233 | end |
|---|
| 1234 | EOF |
|---|
| 1235 | |
|---|
| 1236 | if test "X$ac_fcompile" = "X" ; then |
|---|
| 1237 | ac_fcompile='${F77-f77} -c $FFLAGS conftest.f 1>&AC_FD_CC' |
|---|
| 1238 | fi |
|---|
| 1239 | if AC_TRY_EVAL(ac_fcompile) && test -s conftest.o ; then |
|---|
| 1240 | mv conftest.o mconftestf.o |
|---|
| 1241 | AC_LANG_SAVE |
|---|
| 1242 | AC_LANG_C |
|---|
| 1243 | save_LIBS="$LIBS" |
|---|
| 1244 | |
|---|
| 1245 | LIBS="mconftestf.o $save_LIBS" |
|---|
| 1246 | AC_TRY_LINK([ |
|---|
| 1247 | |
|---|
| 1248 | |
|---|
| 1249 | |
|---|
| 1250 | |
|---|
| 1251 | |
|---|
| 1252 | extern void ftest_(void); |
|---|
| 1253 | ftest_(); |
|---|
| 1254 | ], [link_worked=yes], [link_worked=no] ) |
|---|
| 1255 | if test "$link_worked" = "no" ; then |
|---|
| 1256 | flibdirs=`echo $FLIBS | tr ' ' '\012' | grep '\-L' | tr '\012' ' '` |
|---|
| 1257 | fliblibs=`echo $FLIBS | tr ' ' '\012' | grep -v '\-L' | tr '\012' ' '` |
|---|
| 1258 | for flibs in $fliblibs ; do |
|---|
| 1259 | LIBS="mconftestf.o $flibdirs $flibs $save_LIBS" |
|---|
| 1260 | AC_TRY_LINK([ |
|---|
| 1261 | |
|---|
| 1262 | |
|---|
| 1263 | |
|---|
| 1264 | |
|---|
| 1265 | |
|---|
| 1266 | extern void ftest_(void); |
|---|
| 1267 | ftest_(); |
|---|
| 1268 | ], [link_worked=yes], [link_worked=no] ) |
|---|
| 1269 | if test "$link_worked" = "yes" ; then |
|---|
| 1270 | F77_IN_C_LIBS="$flibdirs $flibs" |
|---|
| 1271 | break |
|---|
| 1272 | fi |
|---|
| 1273 | done |
|---|
| 1274 | if test "$link_worked" = "no" ; then |
|---|
| 1275 | |
|---|
| 1276 | flibscat="" |
|---|
| 1277 | for flibs in $fliblibs ; do |
|---|
| 1278 | flibscat="$flibscat $flibs" |
|---|
| 1279 | LIBS="mconftestf.o $flibdirs $flibscat $save_LIBS" |
|---|
| 1280 | AC_TRY_LINK([ |
|---|
| 1281 | |
|---|
| 1282 | |
|---|
| 1283 | |
|---|
| 1284 | |
|---|
| 1285 | |
|---|
| 1286 | extern void ftest_(void); |
|---|
| 1287 | ftest_(); |
|---|
| 1288 | ], [link_worked=yes], [link_worked=no] ) |
|---|
| 1289 | if test "$link_worked" = "yes" ; then |
|---|
| 1290 | F77_IN_C_LIBS="$flibdirs $flibscat" |
|---|
| 1291 | break |
|---|
| 1292 | fi |
|---|
| 1293 | done |
|---|
| 1294 | fi |
|---|
| 1295 | else |
|---|
| 1296 | |
|---|
| 1297 | F77_IN_C_LIBS="" |
|---|
| 1298 | fi |
|---|
| 1299 | LIBS="$save_LIBS" |
|---|
| 1300 | AC_LANG_RESTORE |
|---|
| 1301 | else |
|---|
| 1302 | echo "configure: failed program was:" >&AC_FD_CC |
|---|
| 1303 | cat conftest.f >&AC_FD_CC |
|---|
| 1304 | fi |
|---|
| 1305 | |
|---|
| 1306 | rm -rf conftest.dSYM |
|---|
| 1307 | rm -f conftest* mconftest* |
|---|
| 1308 | if test -z "$F77_IN_C_LIBS" ; then |
|---|
| 1309 | AC_MSG_RESULT(none) |
|---|
| 1310 | else |
|---|
| 1311 | AC_MSG_RESULT($F77_IN_C_LIBS) |
|---|
| 1312 | fi |
|---|
| 1313 | ]) |
|---|
| 1314 | |
|---|
| 1315 | |
|---|
| 1316 | |
|---|
| 1317 | |
|---|
| 1318 | |
|---|
| 1319 | AC_DEFUN([PAC_PROG_F77_LINKER_WITH_C],[ |
|---|
| 1320 | AC_LANG_SAVE |
|---|
| 1321 | AC_LANG_C |
|---|
| 1322 | AC_TRY_COMPILE(, |
|---|
| 1323 | long long a;,AC_DEFINE(HAVE_LONG_LONG,1,[Define if long long allowed])) |
|---|
| 1324 | AC_MSG_CHECKING([for linker for Fortran main programs]) |
|---|
| 1325 | |
|---|
| 1326 | |
|---|
| 1327 | |
|---|
| 1328 | cat > conftest.c <<EOF |
|---|
| 1329 | |
|---|
| 1330 | |
|---|
| 1331 | int f(int a, long long b) { int c; c = a * ( b / 3 ) / (b-1); return c ; } |
|---|
| 1332 | |
|---|
| 1333 | int f(int a, long b) { int c; c = a * b / (b-1); return c ; } |
|---|
| 1334 | |
|---|
| 1335 | EOF |
|---|
| 1336 | if AC_TRY_EVAL(ac_compile); then |
|---|
| 1337 | mv conftest.o conftest1.o |
|---|
| 1338 | else |
|---|
| 1339 | AC_MSG_ERROR([Could not compile C test program]) |
|---|
| 1340 | fi |
|---|
| 1341 | AC_LANG_FORTRAN77 |
|---|
| 1342 | cat > conftest.f <<EOF |
|---|
| 1343 | program main |
|---|
| 1344 | double precision d |
|---|
| 1345 | print *, "hi" |
|---|
| 1346 | end |
|---|
| 1347 | EOF |
|---|
| 1348 | if AC_TRY_EVAL(ac_compile); then |
|---|
| 1349 | |
|---|
| 1350 | |
|---|
| 1351 | |
|---|
| 1352 | |
|---|
| 1353 | |
|---|
| 1354 | if ${F77} ${FFLAGS} -o conftest conftest.o conftest1.o $LDFLAGS 2>&AC_FD_CC ; then |
|---|
| 1355 | AC_MSG_RESULT([Use Fortran to link programs]) |
|---|
| 1356 | elif ${CC} ${CFLAGS} -o conftest conftest.o conftest1.o $LDFLAGS $FLIBS 2>&AC_FD_CC ; then |
|---|
| 1357 | AC_MSG_RESULT([Use C with FLIBS to link programs]) |
|---|
| 1358 | F77LINKER="$CC" |
|---|
| 1359 | F77_LDFLAGS="$F77_LDFLAGS $FLIBS" |
|---|
| 1360 | else |
|---|
| 1361 | AC_MSG_RESULT([Unable to determine how to link Fortran programs with C]) |
|---|
| 1362 | fi |
|---|
| 1363 | else |
|---|
| 1364 | AC_MSG_ERROR([Could not compile Fortran test program]) |
|---|
| 1365 | fi |
|---|
| 1366 | AC_LANG_RESTORE |
|---|
| 1367 | ]) |
|---|
| 1368 | |
|---|
| 1369 | |
|---|
| 1370 | |
|---|
| 1371 | |
|---|
| 1372 | AC_DEFUN([PAC_PROG_F77_CHECK_FLIBS], |
|---|
| 1373 | [AC_MSG_CHECKING([whether C can link with $FLIBS]) |
|---|
| 1374 | |
|---|
| 1375 | save_LIBS="$LIBS" |
|---|
| 1376 | LIBS="$LIBS $FLIBS" |
|---|
| 1377 | AC_TRY_LINK(,[int a;],runs=yes,runs=no) |
|---|
| 1378 | LIBS="$save_LIBS" |
|---|
| 1379 | AC_MSG_RESULT($runs) |
|---|
| 1380 | if test "$runs" = "no" ; then |
|---|
| 1381 | AC_MSG_CHECKING([for which libraries can be used]) |
|---|
| 1382 | pac_ldirs="" |
|---|
| 1383 | pac_libs="" |
|---|
| 1384 | pac_other="" |
|---|
| 1385 | for name in $FLIBS ; do |
|---|
| 1386 | case $name in |
|---|
| 1387 | -l*) pac_libs="$pac_libs $name" ;; |
|---|
| 1388 | -L*) pac_ldirs="$pac_ldirs $name" ;; |
|---|
| 1389 | *) pac_other="$pac_other $name" ;; |
|---|
| 1390 | esac |
|---|
| 1391 | done |
|---|
| 1392 | save_LIBS="$LIBS" |
|---|
| 1393 | keep_libs="" |
|---|
| 1394 | for name in $pac_libs ; do |
|---|
| 1395 | LIBS="$save_LIBS $pac_ldirs $pac_other $name" |
|---|
| 1396 | AC_TRY_LINK(,[int a;],runs=yes,runs=no) |
|---|
| 1397 | if test $runs = "yes" ; then keep_libs="$keep_libs $name" ; fi |
|---|
| 1398 | done |
|---|
| 1399 | AC_MSG_RESULT($keep_libs) |
|---|
| 1400 | LIBS="$save_LIBS" |
|---|
| 1401 | FLIBS="$pac_ldirs $pac_other $keep_libs" |
|---|
| 1402 | fi |
|---|
| 1403 | ]) |
|---|
| 1404 | |
|---|
| 1405 | |
|---|
| 1406 | |
|---|
| 1407 | |
|---|
| 1408 | |
|---|
| 1409 | AC_DEFUN([PAC_PROG_F77_NEW_CHAR_DECL],[ |
|---|
| 1410 | AC_CACHE_CHECK([whether Fortran supports new-style character declarations], |
|---|
| 1411 | pac_cv_prog_f77_new_char_decl,[ |
|---|
| 1412 | AC_LANG_SAVE |
|---|
| 1413 | AC_LANG_FORTRAN77 |
|---|
| 1414 | AC_COMPILE_IFLESE([AC_LANG_PROGRAM(,[ character (len=10) s])], |
|---|
| 1415 | pac_cv_prog_f77_new_char_decl="yes", |
|---|
| 1416 | pac_cv_prog_f77_new_char_decl="no") |
|---|
| 1417 | AC_LANG_RESTORE |
|---|
| 1418 | ]) |
|---|
| 1419 | if test "$pac_cv_prog_f77_new_char_decl" = "yes" ; then |
|---|
| 1420 | ifelse([$1],,:,$1) |
|---|
| 1421 | else |
|---|
| 1422 | ifelse([$2],,:,$2) |
|---|
| 1423 | fi |
|---|
| 1424 | ]) |
|---|
| 1425 | |
|---|
| 1426 | AC_DEFUN([PAC_PROG_F77_CHAR_PARM],[ |
|---|
| 1427 | |
|---|
| 1428 | |
|---|
| 1429 | |
|---|
| 1430 | case $pac_cv_prog_f77_name_mangle in |
|---|
| 1431 | mixed|lower) |
|---|
| 1432 | sub1=sub |
|---|
| 1433 | sub2=conffoo |
|---|
| 1434 | ;; |
|---|
| 1435 | upper) |
|---|
| 1436 | sub1=SUB |
|---|
| 1437 | sub2=CONFFOO |
|---|
| 1438 | ;; |
|---|
| 1439 | *) |
|---|
| 1440 | sub1=sub_ |
|---|
| 1441 | sub2=conffoo_ |
|---|
| 1442 | ;; |
|---|
| 1443 | esac |
|---|
| 1444 | |
|---|
| 1445 | cat > conftest.c <<EOF |
|---|
| 1446 | |
|---|
| 1447 | int loc = -1; |
|---|
| 1448 | void $sub1( char *a, int b, int c ) |
|---|
| 1449 | { |
|---|
| 1450 | if (b == 10) { |
|---|
| 1451 | loc = 2; |
|---|
| 1452 | } |
|---|
| 1453 | if (c == 10) { |
|---|
| 1454 | loc = 3; |
|---|
| 1455 | } |
|---|
| 1456 | } |
|---|
| 1457 | int main( int argc, char **argv ) |
|---|
| 1458 | { |
|---|
| 1459 | int a, b, c; |
|---|
| 1460 | $sub2(); |
|---|
| 1461 | printf( "%d\n", loc ); |
|---|
| 1462 | } |
|---|
| 1463 | EOF |
|---|
| 1464 | cat > conftest1.f <<EOF |
|---|
| 1465 | subroutine conffoo() |
|---|
| 1466 | character a*10 |
|---|
| 1467 | a = "Foo" |
|---|
| 1468 | call sub( a, 20 ) |
|---|
| 1469 | end |
|---|
| 1470 | EOF |
|---|
| 1471 | |
|---|
| 1472 | rm -rf conftest.dSYM |
|---|
| 1473 | rm conftest* |
|---|
| 1474 | ]) |
|---|
| 1475 | |
|---|
| 1476 | |
|---|
| 1477 | |
|---|
| 1478 | |
|---|
| 1479 | |
|---|
| 1480 | AC_DEFUN([PAC_PROG_F77_AND_C_STDIO_LIBS],[ |
|---|
| 1481 | |
|---|
| 1482 | |
|---|
| 1483 | confname=conf1_ |
|---|
| 1484 | case "$pac_cv_prog_f77_name_mangle" in |
|---|
| 1485 | "lower underscore") confname=conf1_ ;; |
|---|
| 1486 | "upper stdcall") confname=CONF1 ;; |
|---|
| 1487 | upper) confname=CONF1 ;; |
|---|
| 1488 | "lower doubleunderscore") confname=conf1_ ;; |
|---|
| 1489 | lower) confname=conf1 ;; |
|---|
| 1490 | "mixed underscore") confname=conf1_ ;; |
|---|
| 1491 | mixed) confname=conf1 ;; |
|---|
| 1492 | esac |
|---|
| 1493 | |
|---|
| 1494 | AC_CACHE_CHECK([what libraries are needed to link Fortran programs with C routines that use stdio],pac_cv_prog_f77_and_c_stdio_libs,[ |
|---|
| 1495 | pac_cv_prog_f77_and_c_stdio_libs=unknown |
|---|
| 1496 | |
|---|
| 1497 | rm -rf conftest.dSYM |
|---|
| 1498 | rm -f conftest* |
|---|
| 1499 | cat >conftest.f <<EOF |
|---|
| 1500 | program main |
|---|
| 1501 | call conf1(0) |
|---|
| 1502 | end |
|---|
| 1503 | EOF |
|---|
| 1504 | cat >conftestc.c <<EOF |
|---|
| 1505 | |
|---|
| 1506 | int $confname( int a ) |
|---|
| 1507 | { printf( "The answer is %d\n", a ); fflush(stdout); return 0; } |
|---|
| 1508 | EOF |
|---|
| 1509 | tmpcmd='${CC-cc} -c $CFLAGS conftestc.c 1>&AC_FD_CC' |
|---|
| 1510 | if AC_TRY_EVAL(tmpcmd) && test -s conftestc.o ; then |
|---|
| 1511 | : |
|---|
| 1512 | else |
|---|
| 1513 | echo "configure: failed program was:" >&AC_FD_CC |
|---|
| 1514 | cat conftestc.c >&AC_FD_CC |
|---|
| 1515 | fi |
|---|
| 1516 | |
|---|
| 1517 | tmpcmd='${F77-f77} $FFLAGS -o conftest conftest.f conftestc.o 1>&AC_FD_CC' |
|---|
| 1518 | if AC_TRY_EVAL(tmpcmd) && test -x conftest ; then |
|---|
| 1519 | pac_cv_prog_f77_and_c_stdio_libs=none |
|---|
| 1520 | else |
|---|
| 1521 | |
|---|
| 1522 | tmpcmd='${F77-f77} $FFLAGS -o conftest conftest.f conftestc.o -lSystemStubs 1>&AC_FD_CC' |
|---|
| 1523 | if AC_TRY_EVAL(tmpcmd) && test -x conftest ; then |
|---|
| 1524 | pac_cv_prog_f77_and_c_stdio_libs="-lSystemStubs" |
|---|
| 1525 | else |
|---|
| 1526 | echo "configure: failed program was:" >&AC_FD_CC |
|---|
| 1527 | cat conftestc.c >&AC_FD_CC |
|---|
| 1528 | echo "configure: with Fortran 77 program:" >&AC_FD_CC |
|---|
| 1529 | cat conftest.f >&AC_FD_CC |
|---|
| 1530 | fi |
|---|
| 1531 | fi |
|---|
| 1532 | |
|---|
| 1533 | |
|---|
| 1534 | rm -rf conftest.dSYM |
|---|
| 1535 | rm -f conftest* |
|---|
| 1536 | ]) |
|---|
| 1537 | if test "$pac_cv_prog_f77_and_c_stdio_libs" != none -a \ |
|---|
| 1538 | "$pac_cv_prog_f77_and_c_stdio_libs" != unknown ; then |
|---|
| 1539 | F77_OTHER_LIBS="$F77_OTHER_LIBS $pac_cv_prog_f77_and_c_stdio_libs" |
|---|
| 1540 | fi |
|---|
| 1541 | ]) |
|---|
| 1542 | |
|---|
| 1543 | |
|---|
| 1544 | |
|---|
| 1545 | |
|---|
| 1546 | |
|---|
| 1547 | |
|---|
| 1548 | AC_DEFUN([PAC_PROG_F77_FLIBS_VALID],[ |
|---|
| 1549 | pac_cv_f77_flibs_valid=unknown |
|---|
| 1550 | AC_MSG_CHECKING([whether $F77 accepts the FLIBS found by autoconf]) |
|---|
| 1551 | AC_LANG_SAVE |
|---|
| 1552 | AC_LANG_FORTRAN77 |
|---|
| 1553 | |
|---|
| 1554 | |
|---|
| 1555 | cat > conftest.$ac_ext <<EOF |
|---|
| 1556 | program main |
|---|
| 1557 | end |
|---|
| 1558 | EOF |
|---|
| 1559 | if AC_TRY_EVAL(ac_link) && test -s conftest${ac_exeext}; then |
|---|
| 1560 | pac_cv_f77_flibs_valid=yes |
|---|
| 1561 | else |
|---|
| 1562 | echo "configure: failed program was:" >&AC_FD_CC |
|---|
| 1563 | cat conftest.$ac_ext >&AC_FD_CC |
|---|
| 1564 | pac_cv_f77_flibs_valid=no |
|---|
| 1565 | fi |
|---|
| 1566 | AC_MSG_RESULT($pac_cv_f77_flibs_valid) |
|---|
| 1567 | if test $pac_cv_f77_flibs_valid = no ; then |
|---|
| 1568 | |
|---|
| 1569 | AC_MSG_CHECKING([for valid entries in FLIBS]) |
|---|
| 1570 | goodFLIBS="" |
|---|
| 1571 | saveFLIBS=$FLIBS |
|---|
| 1572 | FLIBS="" |
|---|
| 1573 | for arg in $saveFLIBS ; do |
|---|
| 1574 | FLIBS="$goodFLIBS $arg" |
|---|
| 1575 | if AC_TRY_EVAL(ac_link) && test -s conftest${ac_exeext}; then |
|---|
| 1576 | goodFLIBS=$FLIBS |
|---|
| 1577 | else |
|---|
| 1578 | echo "configure: failed program was:" >&AC_FD_CC |
|---|
| 1579 | cat conftest.$ac_ext >&AC_FD_CC |
|---|
| 1580 | fi |
|---|
| 1581 | done |
|---|
| 1582 | FLIBS=$goodFLIBS |
|---|
| 1583 | AC_MSG_RESULT($FLIBS) |
|---|
| 1584 | fi |
|---|
| 1585 | |
|---|
| 1586 | |
|---|
| 1587 | rm -rf conftest.dSYM |
|---|
| 1588 | rm -f conftest* |
|---|
| 1589 | AC_LANG_RESTORE |
|---|
| 1590 | ]) |
|---|
| 1591 | |
|---|
| 1592 | |
|---|
| 1593 | |
|---|
| 1594 | |
|---|
| 1595 | AC_DEFUN([PAC_PROG_F77_OBJ_LINKS_WITH_C],[ |
|---|
| 1596 | AC_MSG_CHECKING([whether Fortran 77 and C objects are compatible]) |
|---|
| 1597 | |
|---|
| 1598 | rm -rf conftestc.dSYM |
|---|
| 1599 | rm -f conftestc* |
|---|
| 1600 | |
|---|
| 1601 | cat <<_EOF > conftestc.c |
|---|
| 1602 | /* lower */ |
|---|
| 1603 | void c_subpgm( int *rc ); |
|---|
| 1604 | void c_subpgm( int *rc ) { *rc = 1; } |
|---|
| 1605 | |
|---|
| 1606 | /* lower underscore */ |
|---|
| 1607 | void c_subpgm_( int *rc ); |
|---|
| 1608 | void c_subpgm_( int *rc ) { *rc = 2; } |
|---|
| 1609 | |
|---|
| 1610 | /* upper */ |
|---|
| 1611 | void C_SUBPGM( int *rc ); |
|---|
| 1612 | void C_SUBPGM( int *rc ) { *rc = 3; } |
|---|
| 1613 | |
|---|
| 1614 | /* lower doubleunderscore */ |
|---|
| 1615 | void c_subpgm__( int *rc ); |
|---|
| 1616 | void c_subpgm__( int *rc ) { *rc = 4; } |
|---|
| 1617 | |
|---|
| 1618 | /* mixed */ |
|---|
| 1619 | void C_subpgm( int *rc ); |
|---|
| 1620 | void C_subpgm( int *rc ) { *rc = 5; } |
|---|
| 1621 | |
|---|
| 1622 | /* mixed underscore */ |
|---|
| 1623 | void C_subpgm_( int *rc ); |
|---|
| 1624 | void C_subpgm_( int *rc ) { *rc = 6; } |
|---|
| 1625 | _EOF |
|---|
| 1626 | |
|---|
| 1627 | |
|---|
| 1628 | |
|---|
| 1629 | pac_Ccompile='${CC-cc} -c $CFLAGS conftestc.c 1>&AC_FD_CC' |
|---|
| 1630 | if AC_TRY_EVAL(pac_Ccompile) && test -s conftestc.${ac_objext} ; then |
|---|
| 1631 | pac_c_working=yes |
|---|
| 1632 | else |
|---|
| 1633 | pac_c_working=no |
|---|
| 1634 | echo "configure: failed C program was:" >&AC_FD_CC |
|---|
| 1635 | cat conftestc.c >&AC_FD_CC |
|---|
| 1636 | fi |
|---|
| 1637 | |
|---|
| 1638 | rm -rf conftestf.dSYM |
|---|
| 1639 | rm -f conftestf* |
|---|
| 1640 | cat <<_EOF > conftestf.f |
|---|
| 1641 | program test |
|---|
| 1642 | integer rc |
|---|
| 1643 | rc = -1 |
|---|
| 1644 | call c_subpgm( rc ) |
|---|
| 1645 | write(6,*) "rc=", rc |
|---|
| 1646 | end |
|---|
| 1647 | _EOF |
|---|
| 1648 | |
|---|
| 1649 | pac_Fcompile='${F77-f77} -c $FFLAGS conftestf.f 1>&AC_FD_CC' |
|---|
| 1650 | if AC_TRY_EVAL(pac_Fcompile) && test -s conftestf.${ac_objext} ; then |
|---|
| 1651 | pac_f77_working=yes |
|---|
| 1652 | else |
|---|
| 1653 | pac_f77_working=no |
|---|
| 1654 | echo "configure: failed F77 program was:" >&AC_FD_CC |
|---|
| 1655 | cat conftestf.f >&AC_FD_CC |
|---|
| 1656 | fi |
|---|
| 1657 | |
|---|
| 1658 | if test "$pac_c_working" = "yes" -a "$pac_f77_working" = "yes" ; then |
|---|
| 1659 | |
|---|
| 1660 | rm -f conftest${ac_exeext} |
|---|
| 1661 | pac_link='$F77 $FFLAGS -o conftest${ac_exeext} conftestf.${ac_objext} conftestc.${ac_objext} $LDFLAGS >&AC_FD_CC' |
|---|
| 1662 | if AC_TRY_EVAL(pac_link) && test -s conftest${ac_exeext} ; then |
|---|
| 1663 | AC_MSG_RESULT(yes) |
|---|
| 1664 | rm -fr conftestf.dSYM conftestc.dSYM conftest.dSYM |
|---|
| 1665 | rm -f conftest* |
|---|
| 1666 | else |
|---|
| 1667 | |
|---|
| 1668 | rm -f conftest${ac_exeext} |
|---|
| 1669 | pac_link='$CC $CFLAGS -o conftest${ac_exeext} conftestf.${ac_objext} conftestc.${ac_objext} $LDFLAGS $FLIBS >&AC_FD_CC' |
|---|
| 1670 | if AC_TRY_EVAL(pac_link) && test -s conftest${ac_exeext} ; then |
|---|
| 1671 | AC_MSG_RESULT(yes) |
|---|
| 1672 | rm -fr conftestf.dSYM conftestc.dSYM conftest.dSYM |
|---|
| 1673 | rm -f conftest* |
|---|
| 1674 | else |
|---|
| 1675 | AC_MSG_RESULT(no) |
|---|
| 1676 | AC_CHECK_PROG(FILE, file, file, []) |
|---|
| 1677 | if test "X$FILE" != "X" ; then |
|---|
| 1678 | fobjtype="`${FILE} conftestf.${ac_objext} | sed -e \"s|conftestf\.${ac_objext}||g\"`" |
|---|
| 1679 | cobjtype="`${FILE} conftestc.${ac_objext} | sed -e \"s|conftestc\.${ac_objext}||g\"`" |
|---|
| 1680 | if test "$fobjtype" != "$cobjtype" ; then |
|---|
| 1681 | AC_MSG_ERROR([**** Incompatible Fortran and C Object File Types! **** |
|---|
| 1682 | F77 Object File Type produced by \"${F77} ${FFLAGS}\" is : ${fobjtype}. |
|---|
| 1683 | C Object File Type produced by \"${CC} ${CFLAGS}\" is : ${cobjtype}.]) |
|---|
| 1684 | fi |
|---|
| 1685 | fi |
|---|
| 1686 | fi |
|---|
| 1687 | fi |
|---|
| 1688 | else |
|---|
| 1689 | AC_MSG_RESULT([failed compilation]) |
|---|
| 1690 | fi |
|---|
| 1691 | ]) |
|---|