diff --git a/test cases/frameworks/36 blas lapack/main.f90 b/test cases/frameworks/36 blas lapack/main.f90 new file mode 100644 index 000000000000..9abfc0676ef2 --- /dev/null +++ b/test cases/frameworks/36 blas lapack/main.f90 @@ -0,0 +1,25 @@ +! minimal BLAS test +program AHH + +implicit none +integer :: n, incx, xs +real :: multval +integer :: x(4) +external sccal + +! A very simple test case, scalar x vector +n = 4 +multval = 3.0 +incx = 1 +x = [1, 2, 3, 4] + +call sscal(n, multval, x, incx) + +xs = int(sum(x)) + +if (xs == 30) then + print '("OK: BLAS sum of scaled 1-D array = ",i2)', xs +else + print '("NOK: BLAS sum of scaled 1-D array = ",i2)', xs +end if +end diff --git a/test cases/frameworks/36 blas lapack/meson.build b/test cases/frameworks/36 blas lapack/meson.build new file mode 100644 index 000000000000..7082edd4e4b3 --- /dev/null +++ b/test cases/frameworks/36 blas lapack/meson.build @@ -0,0 +1,16 @@ +project('test blas and lapack', 'c') + +openblas_dep = dependency('openblas', required: false) +if not openblas_dep.found() + error('MESON_SKIP_TEST: OpenBLAS library not available') +endif + +#c_exe = executable('blas_c', 'main.c', +# dependencies: [openblas_dep]) +#test('openblas_dep', c_exe, timeout: 30) + +if add_languages('fortran', required: false) + f_exe = executable('openblas_fortran', 'main.f90', + dependencies: [openblas_dep]) + test('openblas_fortran', f_exe, timeout: 30) +endif diff --git a/test cases/frameworks/36 blas lapack/test.json b/test cases/frameworks/36 blas lapack/test.json new file mode 100644 index 000000000000..0c40573168a4 --- /dev/null +++ b/test cases/frameworks/36 blas lapack/test.json @@ -0,0 +1,3 @@ +{ + "skip_on_jobname": ["azure", "bionic", "cygwin", "fedora", "msys2", "opensuse"] +}