program prova
implicit none
real :: a,b,c

! SBAGLIATO (ma il compilatore se ne accorge)

a=3
b=4
c=sqrt(a**2+bb**2)
write(6,*)c
end