(Solved) : Bug Fortran77 Code Llab5f 16 31 X P Gt X P 1 1 Legacy Extension Real Array Index 1 Llab5f Q37969760 . . . .

Why I have this bug for my fortran77 code?

llab5.f:16:31:

   IF ( X(P) .GT. X(P + 1) ) THEN

   1

Legacy Extension: REAL array index at (1)

llab5.f:16:21:

   IF ( X(P) .GT. X(P + 1) ) THEN

   1

Legacy Extension: REAL array index at (1)

llab5.f:17:25:

MAX = X(P)

   1

Legacy Extension: REAL array index at (1)

llab5.f:18:19:

X(P) = X(P + 1)

   1

Legacy Extension: REAL array index at (1)

llab5.f:18:26:

X(P) = X(P + 1)

1

Legacy Extension: REAL array index at (1)

llab5.f:19:19:

X(P + 1) = MAX

   1

Legacy Extension: REAL array index at (1)

llab5.f:15:14:

DO P = 1, N – 1

1

Deleted feature: recursive variable at (1) must be integer

code is listed below

PROGRAM ASSIGNEMENT5
INTEGER