Bonjour,
J'aimerais faire un test sur une chaîne de caractère mais je n'arrive pas à le coder. Voici ce que je souhaiterais faire :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
CHARACTER(LEN=10) :: direction
 
PRINT*, "Donner une direction (Est, Ouest, Nord ou Sud)"
READ(*,*) direction
 
IF (direction==Est) THEN
    PRINT*, "..."
    ELSE
    PRINT*,"..."
END IF
Mais ça ne marche pas, du coup je contourne le problème en disant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
INTEGER :: direction
 
PRINT*, "Donner une direction (1 pour Est, 2 pour Ouest, 3 pour Nord ou 4 pour Sud)"
READ(*,*) direction
 
IF (direction==1) THEN
    PRINT*, "..."
    ELSE
    PRINT*,"..."
END IF
Y'a-t-il un moyen de réaliser ce code sans passer par l'affectation d'un nombre à une direction?

Merci d'avance.
Martin