Bonjour svp j'aimerais que vous m'aidiez a completer ce programme

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
program addition
real :: a ,b ,somme
write (*,*) entrer deux nombre 
read (*,*) a ,b
somme = 0
somme =a + b
write (*,*) "la somme est ",somme
end programm addition
en effet le probleme qui ce pose c'est que je compile le prrogramme il ne calcule que la somme des nombres entiers et pas des nombres reels. pour 2.3+3 il affiche 5 au lieu de 5.3

je souhaiterais aussi specifier la condition sur les nombres reels de tel sortes que si nous entrons des lettres (d ,p) ilaffiche "error"
j'ai ajouté ainsi:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
program addition
real :: a ,b ,somme
write (*,*) entrer deux nombre 
read (*,*) a ,b
somme = 0
if a ,b real then
somme =a + b
write (*,*) "la somme est ",somme
else if write (*,*) "error"
end if
end programm addition
Mais ce programme ne se compile pas (ne marche pas)

BIENVOULOIR M'AIDER