Another update from ingydotnet^djgoku

2015-11-18 06:14:39 +00:00 · 2015-11-18 06:14:39 +00:00 · 948b86eafa
commit 948b86eafa
parent 91df62d461
7604 changed files with 108452 additions and 22726 deletions
--- a/Task/Function-definition/Fortran/function-definition-5.f
+++ b/Task/Function-definition/Fortran/function-definition-5.f
@ -1,8 +1,8 @@
 module elemFunc
 contains
-    elemental function multiply(x, y) result(z)
+    elemental function multiply(x, y)
        real, intent(in) :: x, y
-        real :: z
-        z = x * y
+        real :: multiply
+        multiply = x * y
    end function multiply
 end module elemFunc