Bonjour à tous,
j'ai un problème avec ce petit programme que j'ai créé pour un calcul de dérivée d'un polynome

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
16
17
18
19
20
program poly
implicit none 
real::derivpoly,x
real,allocatable::a(:),b(:)
integer::i,n
print*,'quel est le degré'
read*,n
allocate (a(n+1),b(n+1))
do i=1,n+1
  print*, 'que vaut a', i, '?'
  read*,a(i)
end do 
do i=1,n+1
  b(i)=(n+1.0-i)*a(i)*(x**(n-i))
end do
do i=1,n+1
  derivpoly=derivpoly+b(i)
end do
print*, 'la dérivée vaut', derivpoly
end program poly
Lorsque je veux éxecuter le programme, le problème vient à la ligne 14.

Merci d'avance pour votre aide.
Je débute dans le domaine.