Bonsoir à tous, j'aimerais, à partir d'un programme, écrire dans un fichier. Pour cela, j'écris :

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
22
23
24
25
26
options/extend_source
        program TP6
        implicit none
 
        options/extend_source
        program TP6
        implicit none
 
        integer*8 IOS
        character*80 TEXTE
 
 
        open(unit=1,file='CLIENT.TXT', STATUS='NEW',recordtype='VARIABLE',
        1 form='FORMATTED', iostat=IOS)
 
        IOS=0
        do while (IOS .eq. 0)
 
        write(unit=1, fmt=100, iostat=IOS) TEXTE
100     format(X,A)
 
        end do
 
        close(unit=1,iostat=IOS) 
 
        end
Je n'ai aucune erreur, mais par contre je ne peux rien écrire. Je voulais justement savoir pourquoi...
Je vous remercie par avance
Bonne soirée