L'ordre de déclaration du segment étant en tete du sous-programme on peut à tout moment éxécuter l'instruction SEGSUP dont la syntaxe est :
SEGSUP nom-variable-pointeur
Dans notre exemple, supposons que la structure de données MONSEG instanciée par MONS1 ne serve qu'à l'intèrieur du sous-programme SP1, alors le segment doit etre supprimé avant de quitter le sous-programme.
subroutine sp1 (ll,lc......)
segment monseg
integer ijk,nomb(ll,lc),jlc
real x,xx(n)
real*8 y,yy(3,mm)
character*nbca icha(8,ik),chai
endsegment
pointeur mons1.monseg
.
.
n=5
mm=3
ik=12
nbca=4
segini mons1
mons1.xx(3)=...
mons1.icha(5,2)='BIEN'
.
.
SEGSUP MONS1
.
return
end