From a55947a66ae92422f29f73679f9c1fe84c0778ee Mon Sep 17 00:00:00 2001
From: Wojtek Kosior <kwojtus@protonmail.com>
Date: Sat, 1 Jun 2019 12:06:51 +0200
Subject: mark function pure

---
 test.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test.f90 b/test.f90
index b5beb0b..38f360f 100644
--- a/test.f90
+++ b/test.f90
@@ -21,7 +21,7 @@ PROGRAM test
 
 CONTAINS
 
-  real(C_DOUBLE) FUNCTION f1(t)
+  PURE real(C_DOUBLE) FUNCTION f1(t)
     real(C_DOUBLE), intent(in) :: t
     real(C_DOUBLE), parameter :: pi = acos(-1.0)
     
-- 
cgit v1.2.3