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
OR
PayPal Gateway not configured
OR
PayPal Gateway not configured