Adding upstream version 1.0.1.upstream/1.0.1upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 18 insertions, 0 deletions

diff --git a/test cases/fortran/4 self dependency/selfdep.f90 b/test cases/fortran/4 self dependency/selfdep.f90
new file mode 100644
index 0000000..1a71353
--- /dev/null
+++ b/test cases/fortran/4 self dependency/selfdep.f90
@@ -0,0 +1,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