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