test.f90
Source original
SUBROUTINE test
test is not called.
test calls
test does not use anything.
test does not include anything.
IMPLICIT NONE
TYPE (point) :: c, a = point(0.,1.), b = point(1.,2.)
INTEGER :: n = 2
c = a + b ; PRINT*,'c=',c
CALL private_subroutine(a)
PRINT*,'choix=',choix(1,2,& ! le choix est aisé
3)
CONTAINS
test.f90->test:test.f90:1->10
SUBROUTINE private_subroutine
private_subroutine is called by
private_subroutine calls
private_subroutine does not use anything.
private_subroutine does not include anything.
(a)
PRINT*, 'This is not a comment' ! But this is a real one
print*, 'Voici ',choix(a),' ici'
END SUBROUTINE private_subroutine
FUNCTION choix
choix is called by
choix does not call anything.
choix does not use anything.
choix does not include anything.
(a, b)
INTEGER :: choix
choix = b
END FUNCTION choix
END SUBROUTINE test