SIGSEGV: Segmentation fault - invalid memory reference - reference

Question

I'm a beginner in Fortran. I have to make a program with a function and an array but it doesn't work. I tried to use debugger :
-g -fcheck-bounds -fbacktrace -fimplicit-none etc
but nothing is wrong.
Here is my function :
FUNCTION tabspot (i, j, OFFSHORE, hauteurhoulemin, hauteurhoulemax)
IMPLICIT NONE
!---------------------------------------
! Déclaration des arguments
!---------------------------------------
INTEGER, INTENT(INOUT) :: i, j
CHARACTER(LEN=5), INTENT(OUT) :: OFFSHORE
INTEGER, INTENT(OUT):: hauteurhoulemin
INTEGER, INTENT(OUT):: hauteurhoulemax
!---------------------------------------
! Déclaration du type de la fonction
!---------------------------------------
CHARACTER(LEN=14), DIMENSION(4) :: tabspot
!---------------------------------------
! Déclaration des varibles locales
!---------------------------------------
CHARACTER(LEN=14) :: box
tabspot(1) = 'Cotedesbasques'
tabspot(2) = 'Mundaka'
tabspot(3) = 'Parlementia'
tabspot(4) = 'Hendaye'
DO i=1,4
SELECT CASE (i)
CASE(1)
OFFSHORE = 'EST'
hauteurhoulemin = 30
hauteurhoulemax = 150
CASE(2)
OFFSHORE = 'SUD'
hauteurhoulemin = 90
hauteurhoulemax = 400
CASE(3)
OFFSHORE = 'EST'
hauteurhoulemin = 120
hauteurhoulemax = 500
CASE(4)
OFFSHORE = 'SUD'
hauteurhoulemin = 60
hauteurhoulemax = 200
END SELECT
DO j=i+1,5
IF (((vent1%direction == OFFSHORE) .AND. (hauteurhoule>=hauteurhoulemin)&
.AND. (hauteurhoule<=hauteurhoulemax)) .OR. &
((vent1%force == 0) .AND. (hauteurhoule>=hauteurhoulemin)&
.AND. (hauteurhoule<=hauteurhoulemax)))THEN
box=tabspot(i)
tabspot(i)=tabspot(j)
tabspot(j)=box
END IF
END DO
END DO
END FUNCTION
Thank you in advance for your answer.
Martin