From 681e4add145a71735da85193403d77abec8bb0ef Mon Sep 17 00:00:00 2001
From: Sebastian Ehlert <28669218+awvwgk@users.noreply.github.com>
Date: Sun, 8 Nov 2020 17:00:35 +0100
Subject: Add package with external dependency

- BLAS is installed on the OSX and Linux image, but not on Windows
---
 example_packages/link_external/app/main.f90 | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 example_packages/link_external/app/main.f90

(limited to 'example_packages/link_external/app/main.f90')

diff --git a/example_packages/link_external/app/main.f90 b/example_packages/link_external/app/main.f90
new file mode 100644
index 0000000..8df408d
--- /dev/null
+++ b/example_packages/link_external/app/main.f90
@@ -0,0 +1,21 @@
+program test_blas
+   use wrapped_gemv, only : sp, gemv
+   implicit none
+
+   integer :: i, j
+   real(sp) :: mat(4, 4), vec(4), res(4)
+
+   do i = 1, size(vec)
+      vec(i) = sqrt(real(i, sp))
+   end do
+
+   do i = 1, size(mat, 2)
+      do j = 1, size(mat, 1)
+         mat(j, i) = sqrt(real(j * i, sp))
+      end do
+   end do
+
+   call gemv(mat, vec, res, alpha=-1.0_sp, trans='t')
+
+end program test_blas
+
-- 
cgit v1.2.3