Discussion :

[SebGR]

Bonjour à tous,

J'ai un problème de compilation tout bête avec le code suivant (test_case.f90) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

> gfortran -c test_case.f90

Et j'obtiens le message suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[FR119492]

Salut!
Selon le manuel de mon vieux "Compaq Fortran", celui-ci permet l'option FORM='BINARY' malgré le fait que celle-ci n'ait pas été dans la norme officielle à cette époque. Ton compilateur admet-il cette option? Regarde dans la doc.
Jean-Marc Blanc

[Sylvain Bergeron]

Form='binary' est non standard. C'est une extension supportée par la majorité des compilateurs. Il semble que ce ne soit pas le cas pour gfortran.

Cette extension est remplacée à compter de Fortran 2003 par form='stream'.

[SebGR]

Bonsoir,

Effectivement, tout se passe bien avec le compilateur ifort : il admet le form='binary', ce qui n'est pas le cas de gfortran. Bien vu.
Je vais néanmoins essayer le form='stream' pour voir ce que ça dit.

Merci,
-SebGR