diff options
| author | Wojtek Kosior <kwojtus@protonmail.com> | 2019-06-01 12:06:51 +0200 |
|---|---|---|
| committer | Wojtek Kosior <kwojtus@protonmail.com> | 2019-06-01 12:06:51 +0200 |
| commit | a55947a66ae92422f29f73679f9c1fe84c0778ee (patch) | |
| tree | 78074c6d7e21390d7e19268e36f04c234de4248a | |
| parent | 21a2abb375380d745d648ba868ef0a0de4d3cbbe (diff) | |
| download | fortran-assignment2-a55947a66ae92422f29f73679f9c1fe84c0778ee.tar.gz fortran-assignment2-a55947a66ae92422f29f73679f9c1fe84c0778ee.zip | |
mark function pure
| -rw-r--r-- | test.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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) |