From: lkcl <lkcl@web>
Date: Wed, 26 Apr 2023 15:17:30 +0000 (+0100)
Subject: (no commit message)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=9b2185ab5f1696a0447682fd8f0cf4b21581fa07;p=libreriscv.git

---

diff --git a/openpower/sv/cookbook/fortran__95__maxloc.mdwn b/openpower/sv/cookbook/fortran__95__maxloc.mdwn
new file mode 100644
index 000000000..2cee8b617
--- /dev/null
+++ b/openpower/sv/cookbook/fortran__95__maxloc.mdwn
@@ -0,0 +1,21 @@
+<https://bugs.libre-soc.org/show_bug.cgi?id=676>
+
+```
+int m2(int * const restrict a, int n) 
+{ 
+   int m, nm; 
+   int i; 
+
+   m = INT_MIN; 
+   nm = -1; 
+   for (i=0; i<n; i++) 
+   { 
+       if (a[i] > m) 
+       { 
+           m = a[i]; 
+           nm = i; 
+       } 
+    } 
+    return nm; 
+}
+```