Discussion :

[feynman]

Bonjour,
je vient de lire sur la command select case, j'ai écrit ce simple code mais j'ai eu une erreur :

REAL(KIND=1) is not a valid type for a select case expression

Voilà mon code :

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
program G
real N
print*,'choisir la valeur de 1 a 3'
read* N
select case(N)
case(1)
print*,'entrer a #1'
case(2)
print*,'entrer a #2'
case(3)
print*,'entrer a #3'
case default
print*,'erreur'
end select
end

[Sylvain Bergeron]

Le message est assez explicite : Le sélecteur d'un case doit être entier, logique ou caractère, alors que le tient (N) est real.

[feynman]

c est bien ca
merci !