From db01ab9c55ab9cdafdc947655b475ef225327977 Mon Sep 17 00:00:00 2001
From: michael <michael@7e267752-d5d8-41c0-93cd-a7fa012602f9>
Date: Fri, 11 Jul 2014 17:17:26 +0000
Subject: [PATCH] initiate test programs

git-svn-id: svn+ssh://michael-ep3.physik.uni-halle.de/Users/Shared/EELS2@16 7e267752-d5d8-41c0-93cd-a7fa012602f9
---
 testprograms/t1.f90 | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 testprograms/t1.f90

diff --git a/testprograms/t1.f90 b/testprograms/t1.f90
new file mode 100644
index 0000000..ca7801f
--- /dev/null
+++ b/testprograms/t1.f90
@@ -0,0 +1,19 @@
+program t1
+
+  double precision :: epsmac
+
+  epsmac = 1.0d0
+1 epsmac = epsmac / 2.0d0
+  if (1.0d0 + epsmac > 1.0d0) goto 1
+  write (*, *) 'epsmac:', epsmac
+
+! test whether this is a valid replacement
+  
+  epsmac = 1.0d0
+  do while (1.0d0 + epsmac > 1.0d0)
+    epsmac = epsmac / 2.0d0
+  enddo
+  write (*, *) 'epsmac:', epsmac
+
+  stop
+end program t1
\ No newline at end of file
-- 
GitLab