* have to use same case for creating a function name as using it in the
Fortran tests or the mixed case (*caugh* Absoft *cough*) compilers don't compile the tests too well... This commit was SVN r9406.
Этот коммит содержится в:
родитель
6cc582b20e
Коммит
06e61ea03b
@ -26,11 +26,11 @@ AC_DEFUN([OMPI_F77_CHECK_LOGICAL_ARRAY],[
|
||||
# Fortran module
|
||||
cat > conftestf.f <<EOF
|
||||
program check_logical_array
|
||||
external CHECK
|
||||
external check
|
||||
logical l(2)
|
||||
l(1)=.FALSE.
|
||||
l(2)=.TRUE.
|
||||
CALL CHECK(l)
|
||||
CALL check(l)
|
||||
end
|
||||
EOF
|
||||
|
||||
|
@ -27,11 +27,11 @@ AC_DEFUN([OMPI_F77_GET_ALIGNMENT],[
|
||||
# Fortran module
|
||||
cat > conftestf.f <<EOF
|
||||
program falign
|
||||
external ALIGN
|
||||
external align
|
||||
$1 w,x,y,z
|
||||
CHARACTER a,b,c
|
||||
common /foo/a,w,b,x,y,c,z
|
||||
call ALIGN(w,x,y,z)
|
||||
call align(w,x,y,z)
|
||||
end
|
||||
EOF
|
||||
|
||||
|
@ -27,9 +27,9 @@ AC_DEFUN([OMPI_F77_GET_SIZEOF],[
|
||||
# Fortran module
|
||||
cat > conftestf.f <<EOF
|
||||
program fsize
|
||||
external SIZE
|
||||
external size
|
||||
$1 x(2)
|
||||
call SIZE(x(1),x(2))
|
||||
call size(x(1),x(2))
|
||||
end
|
||||
EOF
|
||||
|
||||
|
@ -76,7 +76,7 @@ EOF
|
||||
program main
|
||||
logical value
|
||||
value=.TRUE.
|
||||
CALL PRINT(value)
|
||||
CALL print(value)
|
||||
end
|
||||
EOF
|
||||
|
||||
|
@ -31,9 +31,9 @@ program f90align
|
||||
character a
|
||||
$1 :: x
|
||||
end type
|
||||
external ALIGN
|
||||
external align
|
||||
type(TestAlign) :: a
|
||||
call ALIGN(a%a, a%x)
|
||||
call align(a%a, a%x)
|
||||
end program
|
||||
EOF
|
||||
|
||||
|
@ -27,9 +27,9 @@ AC_DEFUN([OMPI_F90_GET_SIZEOF],[
|
||||
# Fortran module
|
||||
cat > conftestf.f90 <<EOF
|
||||
program fsize
|
||||
external SIZE
|
||||
external size
|
||||
$1 :: x(2)
|
||||
call SIZE(x(1),x(2))
|
||||
call size(x(1),x(2))
|
||||
end program
|
||||
EOF
|
||||
|
||||
|
@ -56,7 +56,7 @@ OMPI_F77_MAKE_C_FUNCTION([ompi_ac_thread_fn], [pthreadtest])
|
||||
# Fortran module
|
||||
cat > conftestf.f <<EOF
|
||||
program fpthread
|
||||
call PTHREADTEST
|
||||
call pthreadtest
|
||||
end
|
||||
EOF
|
||||
|
||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user