Project

General

Profile

Bug #343 » scales-ppm-acx_fc_real_size.patch

Matthew Krupcale, 09/25/2017 06:29 PM

View differences:

ppm-1.0.4/m4/acx_fc_real_size.m4 2017-09-23 18:04:11.070289406 -0400
[AC_LANG_PUSH([Fortran])
AC_RUN_IFELSE(AC_LANG_PROGRAM([],
[ integer :: itest
real :: rtest
$1 :: rtest
integer :: integer_io_length
integer :: real_io_length
integer :: integer_bits
......
write(10,*)real_bits
close(10)]),
[AS_VAR_SET([acx_fortran_Sizeof], `cat conftestval`)
AS_VAR_SET([acx_fortran_Sizeof],[`expr ]AS_VAR_GET([acx_fortran_Sizeof])[ / $acx_cv_c_char_bits`])],
AS_VAR_ARITH([acx_fortran_Sizeof],AS_VAR_GET([acx_fortran_Sizeof])[ / $acx_cv_c_char_bits])],
[AS_VAR_SET([acx_fortran_Sizeof], [unavailable])])
/bin/rm -f conftestval
AC_LANG_POP([Fortran])
(1-1/2)