1
1

* 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.
Этот коммит содержится в:
Brian Barrett 2006-03-24 02:34:13 +00:00
родитель 6cc582b20e
Коммит 06e61ea03b
7 изменённых файлов: 12 добавлений и 12 удалений

Просмотреть файл

@ -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