test cases/fortran/4 self dependency/selfdep.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

MODULE geom

type :: circle
   REAL :: Pi = 4.*atan(1.)
   REAL :: radius
end type circle
END MODULE geom

PROGRAM prog

use geom, only : circle
IMPLICIT NONE

type(circle) :: ell

ell%radius = 3.

END PROGRAM prog