[Débutant] Problème avec select case

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

Citation:

---

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

---

Voilà mon code :

Code:

---

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

---

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.

c est bien ca
merci !