diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2000-02-29 09:11:26 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2000-02-29 09:11:26 +0000 |
| commit | 7c613e953a0119e848dfe9f4bbc66533be6979d6 (patch) | |
| tree | bd86b14cd72c4953094f8a08cc9646e3b624e1b3 /test/Moretest/bigarrf.f | |
| parent | 8599d817b442f16c7e33bef3a2bc4f02a4371bb9 (diff) | |
| download | ocaml-7c613e953a0119e848dfe9f4bbc66533be6979d6.tar.gz | |
Test bigarrays interface externe
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2879 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'test/Moretest/bigarrf.f')
| -rw-r--r-- | test/Moretest/bigarrf.f | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/test/Moretest/bigarrf.f b/test/Moretest/bigarrf.f new file mode 100644 index 0000000000..734863a016 --- /dev/null +++ b/test/Moretest/bigarrf.f @@ -0,0 +1,26 @@ + subroutine filltab() + + parameter (dimx = 8, dimy = 6) + real ftab(dimx, dimy) + common /ftab/ ftab + integer x, y + + do 100 x = 1, dimx + do 110 y = 1, dimy + ftab(x, y) = x * 100 + y + 110 continue + 100 continue + end + + subroutine printtab(tab, dimx, dimy) + + integer dimx, dimy + real tab(dimx, dimy) + integer x, y + + do 200 x = 1, dimx + print 300, x, (tab(x, y), y = 1, dimy) + 300 format(/1X, I3, 2X, 10F6.1/) + 200 continue + end + |