Ciao gente, mi chiedevo cosa c'è che non va in questo programma in Fortran, il codice è il seguente:

codice:
! Scopo: uso di espressioni logiche per la classificazione di triangoli  PROGRAM triangolo_3 ! Questo programma legge tre valori reali che rappresentano le lunghezze dei lati di un triangolo e lo classifica come equilatero, iscoscele o scaleno ! stampando un opportuno messaggio. NOTA: non effettua la verifica che i tre valori rappresentino effettivamente i lati di un triangolo.  ! *** SEZIONE DICHIARATIVA  	IMPLICIT NONE 	REAL :: primo, secondo, terzo ! le lunghezze dei tre lati 	 	 ! *** SEZIONE ESECUTIVA  	WRITE(*,*) ' Inserisci le lunghezze dei tre lati del triangolo: ' 	READ(*,*) primo, secondo, terzo 	 	IF (primo == secondo .AND. secondo == terzo) THEN 		WRITE(*,*) 'Equilatero' 	ELSE IF (primo == secondo .OR. secondo == terzo .OR. primo == terzo) THEN 		WRITE(*,*) ' Isoscele' 	ELSE 		WRITE(*,*) ' Scaleno'  	  	READ(*,*) 	 	STOP 	END PROGRAM triangolo_3