Mercurial > mxe-octave

annotate src/lapack-test.f @ 6161:8fcac4d6d983 release

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
of-queueing: Fix syntax error with Octave 7 (bug #62314). * src/of-queueing-1-octave7.patch: Add new file. * dist-files.mk: Include new patch.
author Markus Mützel <markus.muetzel@gmx.de>
date Thu, 14 Apr 2022 19:27:13 +0200
parents fc0830aafb54
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2464
fc0830aafb54 package lapack: use $(TARGET)-ranlib and add test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
1 *
fc0830aafb54 package lapack: use $(TARGET)-ranlib and add test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
2 * This file is part of MXE.
fc0830aafb54 package lapack: use $(TARGET)-ranlib and add test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
3 * See index.html for further information.
fc0830aafb54 package lapack: use $(TARGET)-ranlib and add test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
4 *
fc0830aafb54 package lapack: use $(TARGET)-ranlib and add test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
5 INTEGER MAJOR, MINOR, PATCH
fc0830aafb54 package lapack: use $(TARGET)-ranlib and add test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
6 *
fc0830aafb54 package lapack: use $(TARGET)-ranlib and add test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
7 CALL ILAVER ( MAJOR,MINOR, PATCH )
fc0830aafb54 package lapack: use $(TARGET)-ranlib and add test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
8 WRITE(*,*) "LAPACK ",MAJOR,".",MINOR,".",PATCH
fc0830aafb54 package lapack: use $(TARGET)-ranlib and add test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
9 *
fc0830aafb54 package lapack: use $(TARGET)-ranlib and add test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
10 END