Bonjour,
j'ai un problème avec une fonction qui ne veut pas se compiler. L'erreur est la suivante : Expecting END PROGRAM statement at (1)
D'après ce que j'ai lu c'est une erreur d'initialisation, mais je ne comprends pas j'ai déclaré ma fonction,P, x1 et x2.

Et voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
PROGRAM Fonctioncoordmax
FUNCTION coordmax
    DOUBLE PRECISION :: coordmax
TYPE coordonees
        DOUBLE PRECISION :: x1,x2
    END TYPE
TYPE(coordonees) P
P = coordonees (x1,x2)
 
PRINT*, "Choisir les 2 coordonnées d'un point"
READ(*,*) x1, x2
P= coordonees (x1, x2)
PRINT*, "Point P =(",P%x1,",", P%x2,")"
 
IF (x1<x2) THEN
    coordmax=x2
    ELSE
        coordmax=x1
END IF
END FUNCTION coordmax
END PROGRAM Fonctioncoordmax

Merci d'avance pour vos réponses.