Salut

je voudrai écrire un fichier de nom, prenom, age et qui se termine par une chaine vide.

voici la syntaxe:

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
program cr_fich.f90
implicit none
integer,parameter :: numfich=1
character (len=12)::nomfich
caharacter(len=20)::nom, prenom
integer::annee
 
print*, annee
read*, nomfich
open(unit=numfich, file=nomfich, form ='unformatted', status = 'new')
print*, 'nom, prenom, annee naissance pour finir)'
do
  if (nom == '') exit
  write (numfich) nom, prenom, annee
end do
print*, 'fin creation fichier'
close (numfich)
 
end
Je n'arrive pas à exécuter ce programme à cause de l'arret de boucle qui ne fonctionne pas. Comment saisir un chaine de caractères vides?
Moi je fais ceci:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
repert (pour le nom)
dupont francois 42
'' '' 0
(nom prénom et age sont séparés par des espaces)
Merci