Error: FORM specifier in OPEN statement at (1) has invalid value 'binary'
Bonjour à tous,
J'ai un problème de compilation tout bête avec le code suivant (test_case.f90) :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| subroutine test_case(filename,STRLEN,n,nnz,iflag,dflag,ia,ja,a,u,f)
implicit none
! input
integer :: STRLEN, n, nnz
character(STRLEN) filename
integer, dimension(500) :: iflag
real(8), dimension(500) :: dflag
integer, dimension( n+1 ) :: ia
integer, dimension( nnz ) :: ja
real(8), dimension( nnz ) :: a
real(8), dimension( n ) :: u
real(8), dimension( n ) :: f
! local variable
integer :: i, check
call check_extension(filename,STRLEN,check)
if (check /= 0) return ! bad extension
open(9,file=trim(filename),form='binary')
close(9)
end subroutine test_case |
Je compile en faisant :
Code:
> gfortran -c test_case.f90
Et j'obtiens le message suivant :
Code:
1
2
3
4
| test_case.f90:19.45:
open(9,file=trim(filename),form='binary')
1
Error: FORM specifier in OPEN statement at (1) has invalid value 'binary' |
Version de gfortran :
Code:
1
2
3
4
5
6
7
|
gfortran --v
Using built-in specs.
Target: i486-linux-gnu
Configured with: ../src/configure -v --with-pkgversion='Ubuntu 4.4.1-4ubuntu9' --with-bugurl=file:///usr/share/doc/gcc-4.4/README.Bugs --enable-languages=c,c++,fortran,objc,obj-c++ --prefix=/usr --enable-shared --enable-multiarch --enable-linker-build-id --with-system-zlib --libexecdir=/usr/lib --without-included-gettext --enable-threads=posix --with-gxx-include-dir=/usr/include/c++/4.4 --program-suffix=-4.4 --enable-nls --enable-clocale=gnu --enable-libstdcxx-debug --enable-objc-gc --enable-targets=all --disable-werror --with-arch-32=i486 --with-tune=generic --enable-checking=release --build=i486-linux-gnu --host=i486-linux-gnu --target=i486-linux-gnu
Thread model: posix
gcc version 4.4.1 (Ubuntu 4.4.1-4ubuntu9) |
Des idées sur le pourquoi du comment ?
Merci d'avance,
-SebGR
