Usa i tag CODE per postare il codice..

Hai scritto questa riga? INTEGER,DIMENSION(0:4)::arr

Perchè non si capisce molto..

E poi, perchè usare dei tipi reali quando i dati dell'array sono semplici dati Integer ?

Ti conviene poi inizializzare l'array da 0 e non da 1.